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UNCLASSIFIED 



ABSTRACT 



Rapid prototyping with automated retrieval of reusable software components is a 
software development method to construct software systems expeditiously. This thesis 
describes a tool to enhance the practice of software reuse within the Computer Aided 
Prototyping System (CAPS). 

A software base interface provides prototype designers with the means to retrieve 
components and integrate them into new applications. Reusable components are retrieved 
from the software base using a formal specification as the search key or through a browser. 
The specification language used is the Prototype System Description Language (PSDL). 
The software base stores the reusable components in an object oriented database 
management system (ONTOS) with an appropriate PSDL specification. Following a query 
conducted by the PSDL specification, chosen retrieved components are transformed and 
integrated to the system under development. 

All software base procedures, including the storage, retrieval, and integration of the 
components, are conducted through a graphical user interface which is designed to 
demonstrate and manipulate available software base operations. 
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I. INTRODUCTION 



A. SOFTWARE REUSE 

1. What Is Software Reuse 

Software reuse is using the elements of an existing system in the construction of 
another similar system. 

In general, software reuse includes all the products of software development 
cycle. Software documentation, requirements, analyses, designs, source codes etc. can all 
be reused in this broad view. 

Reuse of software is an important issue in software engineering because 
developers benefit in both productivity and accuracy by reusing software entities from all 
phases of system development. 

2. Why Reuse 

Much has been written about the software crisis in recent years. It was stated that 
software is too costly, insufficient quality and its development is nearly impossible to 
manage [Cox90]. Software reuse may reduce the pressure of the software crisis. 

A great percentage of a typical program is composed of potentially reusable code. 
It is desirable to make use of existing code wherever possible since this can have a 
significant impact on both the cost and duration of software development. 

Automating the reusability of code will help to eliminate the, now infamous, 
software backlogs [Bass87]. Furthermore, design analysis can focus on meeting and 
matching user requirements rather than verifying internal inconsistencies, especially in 
large projects. 

It was reported that 90% of the cost of maintenance can be reduced by software 
reuse, another report described that the cost of software maintenance is usually about 75% 
of the total cost of the whole life-cycle of software. Other studies show that 40% of a design 
and 75% of the code on a given project is reused [KL91]. 
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As can be seen, reuse can significantly reduce the cost of development and 
maintenance. Other than cost, software reuse may help improve the quality of the software. 
Frequent reuse of a software component may lead to frequent evaluation and revisement. 
Therefore, high quality components may be constructed through the reuse process. 

Reusing the software also saves time in all stages of the life cycle, makes learning 
new systems easier, improves readability and robustness, and leads to more modular, 
rational designs. 

3. How To Reuse 

While software reuse appears to be very beneficial it has not been widely used. It 
is only recently that emphasis is given to develop software systems that utilizes reusability. 

Software reuse brings many research questions into the open. The arguments 
focus on the question that what the candidates are for software reuse, how reusable software 
components should be stored, how we can locate reusable software components, and how 
we can incorporate reusable software components into our own software system [YT88]. 

The candidates for software reuse brings the classification of software reuse. One 
example classification schema is reuse-in-the- small and reuse-in-the-large [KL91]. Reuse- 
in-the-small is concerned with the reuse of (small) pieces of source code such as classes, 
subroutines, (Ada) packages and so on. Reuse-in-the-large is concerned both with the reuse 
of large-grain components such as subsystems, and the reuse of elements beyond source 
code such as design structure, design decision, domain knowledge, analysis information 
and so forth. 

This thesis will address only the source code reuse schemes. 

Many kinds of mechanisms have been thought for the storage, retrieval and 
incorporation of components into the software. One of the earlier methods is cut and paste 
mechanism from component libraries [FH87]. The reusable components were stored in 
reference libraries and retrieved by various browsing mechanisms. Once the component is 



2 



found, the user should copy and paste the component information into his/her program, 
sometimes through the templates that was provided for this purpose. 

An alternative view is that reuse is part of a development process [Luba88]. 
Methods that deal with reuse should be embedded within methodologies that support 
development, and environments to support reuse should be extensions of environments to 
support the developmental methodologies. This means that support for reuse must be an 
option supported and integrated into the standard mode of operation of the tool. The tool 
should support the storage, retrieval, and incorporation of reusable software with the new 
developed ones. 

The difficulties and issues that arises to realize such a system can be summarized 

as follows: 

• The amount of software is large and growing. This makes the search of 
software components difficult. 

• Standards for writing and documenting software are not used or are 
incompatible from project to project. 

• Systems are not designed for reusability. 

• Various systems exist in many different programming languages and their 
incompatibilities pose a barrier for reusability. 

• Software under development generally requires modification of reusable 
component, most intimate analysis of retrieved and developed component is 
necessary. 

Therefore, we may conclude that realization of software reuse will require: 

• Standards for specification, coding and testing that supports reusability. 

• A model for reusable components that represents the features related to 
reusability. 

• A design methodology such that reuse should be a continuing aspect of 
software development, embedded within the tool as an integral part of the 
methodology, rather than a separate option. 

• An efficient and fast location, retrieval method from the software base. This 
should be a tool managing the database of component descriptions. 
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• Incorporation of the components ensuring that the combined components are 
fully semantic and context compatible with the program they are used in. 

Computer Aided Prototyping System (CAPS) is designed to realize all these 
aspects. The requirement for the necessary standards for specification and representation is 
achieved through the use of Prototype System Description Language (PSDL). A software 
base equipped with an efficient search and retrieval mechanism is an embedded tool in 
CAPS. The retrieved components are incorporated into the prototyped system ensuring the 
fully semantic and context compatibility. 

B. RAPID PROTOTYPING 

The demand for large, high quality systems has increased to the point where a jump in 
software technology is needed. Rapid prototyping is one of the most promising approaches 
to this problem [BL88]. 

A prototype is an executable model of the proposed system. The prototype tries to 
realize the requirements such that the behavior of the proposed system is observable. This 
provides continuous modification of requirements as customers can visualize and test them 
throughout the development. 

More than half of the total software cost originates from the changes made on software 
system, called maintenance phase in traditional software life cycle. Moreover, 
requirements errors are the most expensive errors to recover as major changes should be 
made on the system. Requirements are difficult to construct and validate because usually 
there is no single person who understands all of the constraints of proposed system. This is 
especially evident in large systems with hard real-time constraints, since the requirements 
for such systems are generally very difficult to understand or describe [Luqi88]. The 
communication problems between people with different areas of expertise worsens the 
situation. 

Prototyping helps reduce maintenance costs primarily by reducing requirement errors. 
As prototyping allows extensive testing of a system, it also reduces the implementation 
errors. 
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Prototyping life cycle is in figure 1.1. The requirements are specified repeatedly by 
evaluating the executable prototypes and negotiating with the customer. The prototype is 
constructed based on the initial requirements. This prototype is a partial representation of 
the system which is used to analyze and design the system. Then, the designer examines the 
execution of the prototype together with the customer to compare the actual behavior of the 
prototype with the expected behavior. The feedback from the customer is used to adjust the 
requirements and to modify the prototype accordingly. 

The repeated process of user validation and prototype construction continues until the 
prototype successfully meets all the aspects of the envisioned system. After that, the 
designer uses the validated requirements as a basis for the design of the production 
software. 




Figure 1.1 - Prototyping life cycle 

The process of creating and modifying prototypes must be rapid enough for 
prototyping to be an efficient methodology. 

We need software tools to make rapid prototyping practical. Reusing existing system 
components appears to be the most economical approach for constructing prototypes. 
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These reusable components should also have sufficient quality to obtain the necessary 
performance from the final system. 

The method used for rapid prototyping should be supported by a clear, simple, and 
expressive computational model that is also supported by a matching language and 
automated prototyping environment. The same language must be used for prototype design 
and for software base retrievals to gain the benefits of reusable software components. 

This model and language, namely CAPS and PSDL, are briefly described in the 
following two sections. 

C. THE COMPUTER AIDED PROTOTYPING SYSTEM (CAPS) 

The Computer Aided Prototyping System (CAPS) is an integrated environment aimed 
at rapidly prototyping hard real-time embedded systems [LK88, Luqi91]. CAPS software 
tools includes an execution support system, a syntax directed editor with graphic 
capabilities, a software base and an engineering database management system. Figure 2.2 
shows the structure of CAPS. 

CAPS provides a systematic design method for rapid prototype construction. CAPS 
prototypes a system through translation of the high level specification language 
Prototyping System Description Language (PSDL) [BLY88] into Ada code by making use 
of the stored reusable components. To generate a prototype, the designer of the prototype 
uses the graphic editor to create a graphic representation of the proposed system. This 
graphic representation is used to generate part of an executable description of the proposed 
system, represented in PSDL. PSDL specification will be used to perform an automated 
search of the component library for preexisting candidate implementations. An integration 
and transformation schema will then be used to transform the PSDL specification into the 
implementation language code that connects the retrieved reusable components. The 
prototype is then compiled and executed. The user evaluates the prototype against the 
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expected behavior of the proposed system. Repetitions of this process should yield a system 
that satisfies the requirements. 




Figure 2.2 - Structure of CAPS 

D. THE PROTOTYPE SYSTEM DESCRIPTION LANGUAGE (PSDL) 

A powerful, easy to use, and portable prototype description language is a critical part 
of an automated rapid prototyping environment. Such a language is needed before the tools 
in the environment can be built. 

PSDL [BLY88, BL88] is the specification language used in CAPS. It serves as an 
executable prototyping language at a specification or design level and has special features 
for real-time system design. PSDL has facilities for recording and enforcing timing 



7 



constraints, and for modeling the control aspects of real-time systems using nonprocedural 
control constraints, operator abstractions, and data abstractions. It is especially well suited 
for large real-time systems, and is useful for prototyping typical Ada applications. Ada is 
convenient for implementing PSDL because the mechanisms of Ada support the features 
of PSDL. Therefore, PSDL can easily interface to reusable Ada components as PSDL 
execution support system is also in Ada. PSDL is used to describe the connections between 
the components of a prototype, and to specify the behavior of the reusable components in 
the prototype as well as those in the software base. 

PSDL provides two kinds of building blocks for prototypes: abstract data types and 
operators. Software systems are modeled as networks of operators communicating via data 
streams. The PSDL data types include built-in types of Ada, user defined abstract types, the 
special types time and exception, and the types that can be built using the type constructors 
of PSDL. 

PSDL operators have two major parts: the specification and implementation. The 
specification part contains attributes describing the form of the interface, the timing 
characteristics, and both formal and informal descriptions of the observable behavior of the 
operator. Specification may optionally include inputs, outputs, exceptions, generic 
parameters, states and timing information. These interface characteristics are defined by the 
software engineer during the design process to specify the operator and form the basis for 
retrievals from a reusable component library or software base. 

The implementation part determines if the operator is atomic or composite. Atomic 
operators have an implementation keyword specifying the underlying programming 
language, followed by the name of the implementation module implementing the operator. 
This name is supplied either as a result of a successful retrieval from the software base or 
is supplied by designer. Composite operators have the attributes communication graph, 
internal data, control constraints, and informal description. 
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E. OBJECTIVES 



The major purpose of this thesis is to provide tools to facilitate the practice of software 
reuse within the Computer Aided Prototyping System (CAPS). 

Currently, a software base provides prototype designers with the means to retrieve 
components. Reusable components are retrieved from the software base using a formal 
specification as the search key or through a browser. The specification language used is the 
Prototype System Description Language (PSDL). The software base stores the reusable 
components in an object oriented database management system (ONTOS) with an 
appropriate PSDL specification. 

The study conducted in this thesis was aimed at achieving three major goals: (1) to 
modify the software base to allow the integration of the retrieved components into new 
applications; (2) to transform and integrate the chosen retrieved components to the system 
under development; (3) to design and develop a graphical user interface (implemented by 
using TAE Plus) for manipulating available software base operations, including the 
storage, retrieval, and integration of the components. 

F. ORGANIZATION OF THE THESIS 

Chapter II provides a brief background on information retrieval methodology and 
gives an overview of the current retrieval systems and tools. Chapter III describes the 
structure of the CAPS software base. Chapter IV discusses the integration of reusable 
components into new applications and provides the design methodology. Chapter V 
describes the design and implementation of software base graphical user interface. Chapter 
VI is the conclusions and recommendations for further research. 
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II. BACKGROUND AND PREVIOUS RESEARCH 



This chapter describes some technical background concerning reusable software 
components and their retrieval, and reviews previous and current systems that implement 
various methodologies to achieve this purpose. 

A. INFORMATION RETRIEVAL 

The problem of retrieving reusable software components from a library is in general 
an information retrieval problem [Stei91]. The important concepts from information 
retrieval that relate to reusable component retrieval are representation, search, and 
measures of performance. 

Representation is the way the object sought is structured to facilitate retrieval. For 
example a list of keywords may be provided for the future retrieval of a certain component. 
The method of representation must support the method used to search for the object A lot 
of research has been conducted for search mechanisms, especially in the areas of artificial 
intelligence and database management systems. The method of representation and the 
method of search work together to form a cohesive environment for information retrieval. 
The more refined and precise the method of representation, the easier the search mechanism 
becomes. Various representation and search mechanisms will be described in the following 
section. 

The two most important measures of performance are precision and recall [SM83]. 
Precision is the ratio between the number of relevant components retrieved and the total 
number retrieved. It is the answer to the question, “What percentage of the retrieved 
components are relevant?” Recall is the ratio between the number of relevant components 
retrieved and the number of relevant components in the database. It is the answer to the 
question, “What percentage of the relevant components on the database did my query 
find?” Precision and recall obtain ideal values when the set of components retrieved is 
exactly the same as the set of components that are relevant. 
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B. METHODS FOR RETRIEVING REUSABLE COMPONENTS 



Almost all of the tools developed for retrieving reusable components use one or more 
of three different approaches for retrieval; browsers, informal specifications, or formal 
specifications. The fundamentals of each approach will be described in this section and then 
some existing tools using these methods will be reviewed in section II. C. 

1. Browsers 

A browser is a general purpose, usually window-based tool for looking through 
collections, categories, or hierarchies of components at various levels of abstraction 
[Meye88]. The objective is to allow the system user to manually search for the desired 
component. 

The advantage of a browser is that the user is given complete control over the 
entire collection of components. This is especially useful if the user is familiar with the 
content of the software collection and already knows the components being searched. 

The first disadvantage is that the method is basically manual, and the user should 
browse through the whole set of components to find the one that is desired. This also means 
a very low precision. 

Second, it requires the user’s knowledge of the structure of the component 
collection. Another issue related to this problem is that the search may be local, causing the 
failure or inefficiency of the retrieval; that is, if a suitable component is defined elsewhere 
in the system, it is not going to be found if user doesn’t know to look at there. 

Third, unless retrieved component is equipped with proper documentation, the 
user should look into the source code to determine if the component satisfy the 
requirements. Another related issue is that if the user has not found the exactly matching 
component for the needs, there will be no clear termination point for search. 

Fourth, if the size of the software base is large, this method will be unacceptably 
insufficient and time consuming. 
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2. Informal Specifications 

Retrieval techniques based on informal specifications require the user to describe 
or list some of the attributes of the component being looked for. Informal specification 
methods include keyword search, multi-attribute search, and natural language interfaces. 

a. Keyword Search 

Keyword search mechanisms require the user to specify a list of words 
relevant to the object being sought. Keywords can be drawn from a known system 
vocabulary (controlled vocabulary), or they can be unconstrained (uncontrolled 
vocabulary). In the case of unconstrained keywords, synonym tables are often used to find 
more standard words on which to perform the query [SM83]. 

The advantages of this approach are easy implementation and its conceptual 
simplicity for the user. These aspects make it a very commonly used technique. 

One disadvantage of this approach is precision and recall of the system 
depend on the number of the keywords used. A lower number of keywords, for example, 
one, results in high recall and low precision as a large number of components will be 
retrieved; whereas too many keywords will have the opposite effect. 

The second disadvantage is the user should be familiar with the structure of 
keyword categories. Both of this disadvantages cause the search to be an exercise of trial 
and error. 

b. Multi-attribute Search 

Multi-attribute search mechanisms are similar to keyword search 
mechanisms, but also use other characteristics of the component being searched. These 
characteristics that can be utilized for retrieval are the class of the object (procedure, 
function, package, etc.), the number and types of parameters, the number of operations it 
supports, its domain of use, etc. 
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The advantage of this method is that a component description contains more 
than just keyword information. The attributes taken together make up a classification 
scheme that provides more information than would be present in a pure keyword search. 

The disadvantage of multi-attribute search is that the classification and 
subsequent storage location of a component defined by its attributes is left to the 
administrator, but users will not necessarily classify the same component the same way. If 
the user succeeds in filling in the same values, the query will be successful, otherwise recall 
of similar components will be low. 

c. Natural Language Interfaces 

This is a growing area of computer science research. An advantage of this 
system is the ease of language query formulations by system users. 

In reusable component retrieval, the query will be issued through a natural 
language. Because of the ambiguity inherent in the broad semantics of natural language, a 
complex and detailed processing of the input language needs to be applied. Overcoming the 
difficulties of semantic analysis is the main challenge in dealing with natural languages. 

3. Formal Specifications 

There are many specification languages that has been used to describe the 
semantics of software processes. Examples of existing specification formalisms are 
predicate calculus [RW90b], plan calculus [RW90a], and algebraic formalisms [GTW78]. 

Because these specification languages are based on such specification formalisms 
they are free from ambiguity and can be transformed into normal representations by using 
logic and term rewriting rules without changing their meaning. 

The disadvantage is specifications may be difficult for to write. Another 
disadvantage is that processing times for the search algorithms may be excessive depending 
on the approach taken. Finally, matching formal specifications is a hard problem. 
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C. CURRENT RETRIEVAL SYSTEMS AND TOOLS 



This section describes some of the systems that have been built to perform reusable 
component retrieval and investigates the methods used by each system. 

1. Draco 

The Draco project [Neig84] is an approach to software engineering that has had a 
large impact on software reusability in general. The Draco approach focuses on domain 
engineering of software. 

The most important aspect of Draco is the domain language. Software 
components are organized into problem areas or domains and a domain language describes 
objects and operations of a particular domain. There is a reusable component associated 
with each domain language object or operation. Since there is a potentially large number of 
components within a domain, a classification scheme is developed for the components 
called faceted classification to aid in organizing and retrieving the components. 

Using faceted classification, Draco approach utilizes a multi-attribute query 
method. Queries are constructed by the formulation of a tuple of attributes that best 
characterizes a particular domain. A query session begins with the most specific query, that 
is, all attributes filled in. If the results of the query are unsatisfactory, the user may 
generalize the query by inserting wildcards for attribute values. 

The advantages of faceted classification are that it is conceptually simple for users 
and relatively easy to implement. Because of this, the concept has been borrowed to 
implement the retrieval mechanisms in both RAPID (see Section n.C.2) and OSS (see 
Section II. C. 5). 

One disadvantage of multi-attribute search is that semantically similar 
components may not be found when their attribute definitions are different. Draco 
alleviates this problem by maintaining a measure of conceptual closeness for the term lists 
of each attribute. This way, an unsuccessful search can be tried again using an alternative 
but similar term in one of the attributes. 
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The disadvantages of faceted classification are that it is not suitable for 
unconstrained domains and semantically similar components may be missed from other 
domains, even with a conceptual closeness measure. 

2. RAPID 

The RAPID (Reusable Ada Packages for Information System Development) 
project is an ongoing effort in the Department of Defence [Voge90]. The objective of 
RAPID is to provide software engineers with quick access to reusable Ada packages in the 
information systems domain. The functions it performs are reusable software component 
classification, storage, and retrieval. 

RAPED uses a faceted classification scheme to organize and retrieve components 
and falls into the category of multi-attribute search. No measures of performance or quality 
assessments are available yet. 

3. The Reusable Software Library 

The Reusable Software Library is a system designed to make software reuse an 
integral part of the software development process [BW87]. The system couples a passive 
software database with interactive software design tools to help software developers find 
and evaluate components to meet their requirements. 

Components are stored in the database with attribute values that provide a basis 
for search. There are two methods available to search for components, standard multi- 
attribute search and natural language. The multi-attribute approach provides a menu driven 
interface in which the user selects the attributes with which to perform the search. 
Alternatively, the user may express his query in the form of natural language, such as “I 
need a stack package.”. The system parses the input, extracts keywords from it and uses 
those words as attributes to perform the search. 

The designers of the system report that the natural language front end is 
considerably easier to use but the search is significantly slower, by a factor of five to ten 
because of the natural language parsing overhead involved. 
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4. The Programmer’s Apprentice 

The goal of Programmer’s Apprentice project is to apply artificial intelligence 
techniques in an effort to automate the programming process [RW90a]. It is designed to 
provide intelligent assistance in all phases of a programming task. 

A reusable component is called a cliche. A cliche represents a commonly used 
combination of elements such as abstract data types, binary searches, etc. Thus, programs 
may be considered as collections of interrelated cliches. 

A formalism called Plan Calculus is developed to represent cliches. A plan 
defines a single cliche in three parts: a plan diagram, a logical annotation, and an overlay. 
Together these parts constitute a language independent formalism for describing reusable 
software components. 

A maintenance tool called the Recognizer automatically finds all occurrences of 
a given set of cliches in a program and builds a hierarchical description of the program in 
terms of the cliches found. It is not clear whether the Recognizer will be used as a general 
purpose component retrieval tool. It is currently limited to finding algorithmic cliches but 
the researchers hope to extend its capability to find data structures and data abstraction as 
well. 



5. Operation Support System 

The Operation Support System (OSS) is an ongoing project aimed at developing 
an integrated software engineering environment undertaken by Naval Ocean Systems 
Center [Stei91]. One goal of the project is to establish a Navy software library of reusable 
software components. 

The current prototype library subsystem allows component retrieval using faceted 
classification, keywords, or a textual browser. The components currently stored in the 
library are large command, control, and communications subsystems. Since the library is 
in its early stages, no information is available on its performance characteristics. 
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6. Specifications as Search Keys 

An experimental system developed at Carnegie Mellon University uses formal 
specifications to search software libraries [RW90b]. Each function in the library has a 
corresponding formal specification. Specification matching is the process of determining 
whether a specification of a library function satisfies a query. Specifications and queries are 
written in ^Prolog. 

Each specification has a signature and some semantic information. Their aim is to 
match first on signature and then increase precision by matching on specification 
semantics. The system designers claim that the use of semantics in specification matching 
increases precision. Although they give examples showing precision is improved, they do 
not provide statistics that indicate how much. 



s 
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III. CAPS SOFTWARE BASE 



The paradigm for rapid prototype construction in CAPS leads the designer from a 
graphical representation of the prototype, through specification with a prototyping 
language (PSDL), and then on to code generation. Figure 3. 1 shows the prototyping process 
supported by CAPS [LK88]. 




connections 

Figure 3.1 - The CAPS Prototyping process 
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As seen, CAPS takes advantage of a library of reusable software components. The 
prototype designer writes specifications for the operators and data streams to model system 
requirements, these specifications are used to locate components that will satisfy those 
requirements. A retrieval system that is automatic, efficient, and effective relieves the 
designer from having to use a browser or some other manual means to locate components. 
This is particularly beneficial when the software base contains a large number of 
components. Once the desired component is retrieved, the next challenge is to integrate it 
into the system. 

The functionality of software base can be divided into three main categories: Storage, 
retrieval, and integration of components. This scheme can be viewed in figure 3.2. 




Figure 3.2 - Functionality of Software Base 

The storage and retrieval facility of software base is described in the remainder of this 
chapter, and integration process is described in chapter iv. 

A. COMPONENT STORAGE 

Due to the complexity of storing variable length source code and querying the software 
base using PSDL specifications, a powerful DBMS is necessary. This DBMS should also 
support multi-user and networked access to its data as CAPS is designed for multi-user 
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networking environment. This database should perform the component storage facility of 
the software base. 

1. ONTOS Database Management System 

Ontos is a distributed object database management system [Onto90]. It consists 
of a database, a set of utilities, and a C++ interface. It was selected for use in the software 
base project because it has sufficient capabilities to handle the requirements for the 
implementation of an advanced reusable software component library. 

Ontos allows the database developer the ability to make any data object persist 
past the execution of the program that created it. To achieve this, the ONTOS class library 
introduces an Object class. It is the parent of all persistent classes. Object defines a 
constructor for creating objects in the database and a destructor for deleting them. The 
Object class constructor assigns each object a unique identifier and provides methods to 
store and retrieve them. 

Ontos includes a set of persistent aggregate classes in order to efficiently handle 
collections of persistent objects. The aggregate classes include Dictionaries, Lists, Sets, and 
Arrays. The aggregate class hierarchy is shown in figure 3.3. 




Figure 3.3 - The Aggregate Class Hierarchy 
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The aggregate classes are container classes and are used to deal with groups of 
objects. The List class is analogous to a linked list data structure. The Set class implements 
the standard concept of set and the Array class implements the concept of arrays. The 
Dictionary class is the most versatile of the aggregate classes and it is extensively used to 
implement the structure of the software base. All of the four classes are fully dynamic and 
can grow without bound. 

The Dictionary class is a keyed data structure that can be ordered or unordered. 
Every entry in a Dictionary has two attributes stored, the Tag and the Element. The Tag is 
used for indexed look up and the Element is to hold the data. Dictionaries may allow or not 
allow duplicate elements for a given Tag. 

Ordered Dictionaries are maintained in ascending key order and use B-tree access 
structure to sort entries based on the relative ordering of their tag values. Unordered 
Dictionaries use hash table access structure. 

2. Storing The Components 

The CAPS software base [McDo91] is designed as a general purpose tool capable 
of storing components implemented in many programming languages. Because of the 
differences in the capabilities of each programming language there are differences in the 
way the pre-defined abstract data types used in PSDL to specify components are interpreted 
by the software base. These differences in the interpretation of PSDL specifications require 
that all components of a particular implementation language be considered in a unique 
domain. It is also possible to create multiple component domains for a given 
implementation language. Each domain is a library composed of five parts: a component 
dictionary, a keyword library, an operator library, an abstract data type library, and a 
recognized type matrix. 

For each component in a domain, six text files must be stored. These files are the 
PSDL specification, the implementation language specification, the implementation body, 
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the informal description, the axiomatic specification, and a normalized version of the 
axiomatic specification. 

A persistent class was designed inheriting from the Ontos class Object to allow 
storage and retrieval of these text files. Instances of this class is used as attributes of each 
component in the software base to store the files. 

B. RETRIEVING THE COMPONENTS 

There are three methods to retrieve a stored component: by PSDL query, by keyword 
query, and through a component name browser. Although browsing by component name 
and keyword querying are not the preferred methods for finding reusable components in a 
large software base, they are necessary features of any software collection. 

Each domain is divided into two categories: abstract data types and operators. An 
ordered list of components is provided for browsing the components by their name in these 
disjoint categories. 

Each software base library also includes a keyword library for handling keyword 
access to its components. The keyword attribute of PSDL specification is used to perform 
a keyword structured search in the software base. The result of a keyword query is a list of 
those components that posses one or more of the query keywords. The list is ordered with 
those components that satisfy the most query keywords coming first. 

1. Query by PSDL Specification 

This method uses the syntax and semantics of the PSDL specification to conduct 
the search for a component. First, the PSDL specification is modified to improve the 
efficiency of the search. The process of transforming or manipulating the specification for 
a reusable software component is called normalization. 

Components to be stored goes through a syntactic and semantic normalization 
process that transform the component’s PSDL specification to facilitate later matching. The 
normalized specification is stored with the component in the software base. At the retrieval 
phase, a query for a library component is formed by constructing the PSDL specification 
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for the desired component. The query specification is syntactically and semantically 
normalized and then matched against the stored specifications. 

Syntactic normalization standardizes the form of the query’s interface 
characteristics to be used in syntactic matching. Semantic normalization transforms the 
signature and axioms of the specification to make them suitable for semantic matching 
[Stei91]. Syntactic matching takes place before the semantic matching. Syntactic matching 
is faster and quickly narrows the list of possible candidates while semantic matching is time 
consuming and should be applied to as small a candidate list as possible. The main benefit 
of syntactic matching is speed whereas the advantage of semantic matching is accuracy. 
This schema is shown in figure 3.4. The functional programming language OBJ3 is used 
for semantic matching and further details can be found in [Stei91]. 
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Figure 3.4 - Normalization for Component Retrieval 
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IV. INTEGRATION OF REUSABLE COMPONENTS 



Once a reusable component is retrieved, incorporating it into the developed software 
system is an important task of a software base. Software base should support the automatic 
adaptation of the retrieved components into the program at construction time ensuring the 
full context compatibility. This process will require a transformation procedure to be 
applied on the retrieved components such as changing the parameters, operator names etc. 
as well as instantiating the generic parameters. 

A. INTEGRATING THE REUSABLE COMPONENTS INTO CAPS 

Software base should provide a component implementation that meets the needs of the 
CAPS execution support system. To accomplish this, the retrieved component should be 
transformed into a suitable form to be used by the implemented system. On the other hand, 
software base cannot directly generate implementation code as it is not language specific. 
Therefore, we need an integration tool to generate the necessary code to incorporate the 
component into the system. In the rest of this chapter, the methodology and the 
implementation of an integration tool developed for incorporating the retrieved 
components into the CAPS is discussed. 

1. An Integration Tool For CAPS Software Base 

The software base provides three methods to retrieve a stored component as 
discussed previously. The kind of method used for retrieval is important for incorporation. 
We have a PSDL query containing the requirements of execution support system if 
component is retrieved by query, and no specification is provided if keyword query or 
browsing by component name methods are used. 

If component is retrieved by PSDL query, we can use this query specification in 
transformation to change the input/output parameter names, operator or type names, and to 
instantiate the generic parameters if there is any. 
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If retrieval is conducted through other methods, no change of parameter and 
operator/type name is necessary, but we still should have means to instantiate the generic 
parameters and transform the retrieved component into a form that can be used by the 
system. 

B. METHODOLOGY FOR TRANSFORMATION 

It has been difficult to reuse software components in practice as in most cases two 
instances of the same component are rarely alike. Typically, many small variations on a 
theme exist and generally it is difficult to predict which variation will be needed in a certain 
implementation. 

This situation can be alleviated by providing a transformation mechanism that adapts 
the components explicitly stored in software base. This capability has two important effects 
on software reuse. First, retrieval process has a much better chance of successfully 
retrieving a specified component from the software base compared to a system that can only 
return components explicitly stored in the software base. Second, automatically adapting 
the reusable components after retrieval is important in rapid prototyping where designer 
time is at a premium. 

Transformations should take place in such a way that it should have no effect on the 
stored component, yet it should be readily usable by the system. This means that instead of 
modifying the retrieved component, it should be used as a basis for the transformation 
module. In our case, this is accomplished through the with statement for Ada libraries. The 
same schema may be applied to other languages through an inheritance mechanism as it 
will be the case in C++. This module should be automatically generated as a pan of the 
retrieval/integration system. 

In our application, the transformation module will be created for each retrieved 
component and will be embodied in its own package through the integration process. This 
package will be saved in the work area and will be used by the designer. All name and 
parameter changes as well as generic instantiations will be embedded in this package. 
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Because there are various ways to retrieve a component, the creation of this transformation 
module varies for each method. 

The implementation of transformation module is discussed in sections 4.D and 4.E. 
The structure of integration tool is discussed in the next section. 

C. STRUCTURE OF THE INTEGRATION TOOL 

The Integration Tool is used to: 

(i) input PSDL of the retrieved component (and query if PSDL query method is used), 

(ii) transform the required component, parameter names and perform instantiations, 

(iii) output the transformation module encapsulated in its own package. 

The structure of the integration tool is in figure 4.1. 




Figure 4.1 - Structure of The Integration Tool 
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In the first step, the PSDL specification of the retrieved component and the PSDL 
query (if the query by PSDL specification method is used for retrieval) are parsed by a 
LARL(l) parser. This parser is constructed by using the tools ayacc and aflex, which are 
Ada versions of the parser generator tools yacc and lex that are provided in UNIX 
environment [TTS88, Self90]. 

In the second step, PSDL of the retrieved component is evaluated. Depending on the 
retrieval method, various structures that will be used to compose the transformation module 
are created. If retrieval is performed by PSDL query, operator and/or type names and 
parameters of retrieved component are also mapped to the corresponding descriptions 
given in query. 

In the third step, an Ada package is created and the transformed representation of the 
retrieved component is written into this package to be used by the prototype. 

1. PSDL Parser 

Two LARL(l) parsers are used to parse the PSDL specification of the retrieved 
component, and the PSDL query if supplied. Because the actions and the resulting 
structures to be formed will be different for two types of integration process we need two 
different parsers, one for the integration of the components retrieved by PSDL query, one 
for the integration of the components retrieved by named look up or keyword query. Each 
parser is constructed by using a parser generator -ayacc, and a lexical analyzer -aflex. 

Two auxiliary packages are supplied to provide the structures in which the 

1 1 

information about the parsed PSDL specifications will be stored for use during the 
composing process. These packages also contain the Ada code for the semantic actions 
which will take place during the parsing process of PSDL specifications. 
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The top level diagram of the parser is in Figure 4.2. 




Figure 4.2 - Parser Generation 
a. Parser Generator ( Ayacc ) 

Ayacc [TTS88] generates a parser from an input of BNF style specification 
grammar, accompanied by a set of Ada program fragments called actions to be executed as 
each grammar rule is recognized. The generated output is a set of Ada program units that 
act as a parser for the input grammar. 



28 





The main parser procedure yyparse makes a call to lexical analyzer function 
yylex to get an input token, and then matches the grammar rules and executes the actions 
associated with these grammar rules. Ayacc needs a specification file as input which is a 
collection of grammar rules and actions associated with them, along with the Ada 
subprograms we provided to be used in the semantic actions. The input specification files 
provided are psdl.y and query. y containing the rules to process the PSDL specifications of 
the retrieved component and query respectively. 

Ayacc generates four files, three auxiliary packages and a parser. The parsers 
generated for our application are in the files psdl.a and query. a. 

b. Lexical Analyzer (Aflex) 

Aflex [Self90] is a lexical analyzer generating tool written in Ada designed 
for lexical processing of character input streams. Aflex accepts high level rules written in 
regular expressions for character string matching, and generates Ada source code for a 
lexical analyzer, by using a finite state machine to recognize input tokens. Aflex can be 
used alone for simple lexical analysis, or with ayacc to generate a parser front-end, as in 
our application. 

Aflex generates a file containing a lexical analyzer function (yylex) along 
with two other auxiliary packages. Lexical analyzer is implemented as an Ada package in 
this application. The files query Jex.l, for retrieval by PSDL query, and psdljex.l , for other 
retrieval methods, are the inputs to aflex. They define the lexical classes and the regular 
expressions used in the PSDL grammar. Each regular expression is associated with an 
action which is written in Ada and executed when the regular expression is matched. The 
lexical analyzer function yylex returns a single token after each call, made by the parser 
procedure yyparse of ayacc. The name of the generated file is psdljex.a. 

2. Transformation Process 

Retrieved component is used as a basis for the creation of the transformation 
module. This process is conducted in two phase. First, the PSDL specification of the 
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retrieved component is parsed and the necessary information about the component is stored 
in the structures supplied in the auxiliary package component jmx _pkg. This information 
includes the name of the component, whether the component is a type or operator, generic 
parameters, and input/output parameter names and values. If the component is a type, 
information related to each operator is also extracted during the parsing process. 

Second, the retrieval method is evaluated in the composition phase. If retrieval 
process is accomplished through named look up or keyword query, the creation of the 
transformation module is conducted by using the information extracted from the PSDL 
specification of the component during parsing. This process is analogous to the use-as-is 
methodology. Although it is not the preferable method of code reuse, it can still be utilized. 
Therefore, we included an integration mechanism for these kind of retrieval and reuse 
schemes as well. Output of composer is the transformation module containing the 
implementation that incorporates the retrieved component as is through Ada with statement 
and renaming. This procedure is explained in detail in section 4.C.2.a. 

If retrieval of the component is accomplished by PSDL query, we need a mapping 
mechanism. For this purpose, the PSDL query is also parsed and similarly the information 
about the query is stored in a separate structure supplied by the auxiliary package called 
query _aux _pkg. This information is used to transform the component name, operator 
names (if component is a type), and parameter name and values to maintain the consistency 
in the system. 

Mapping process is carried out during the composition of the transformation 
module by using the information from both structure packages, namely 
component_aux _pkg and query _aux _pkg. During this mapping procedure generic 
parameters are also taken into consideration. If retrieved component is generic, the value 
of each input and output parameter is checked against the generic parameters. This issue is 
addressed in section 4.C.2.b. 

The resulting transformation module is implemented as a package and saved in 
the prototype directory. Thus, implementation for the integration of each retrieved 
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component is encapsulated in its own package. The file this package is written into is called 
proto-prefix. atomic. a where atomic stands for the component name. The details about the 
creation of the transformation module is in the following two sections. 

a. Transformation Module for The Components Retrieved by Browsing 

Keyword query and named look up of components are two methods used for 
reusable component retrieval. None of these methods provide the specifications required 
by the design process. Nevertheless, we should provide ways to integrate a component 
retrieved by these methods as it may be desirable to use this component as it is. In this case 
no parameter change is required. We need to generate a package withed to the retrieved 
component and rename the contained procedures. 

For this process, the PSDL specification of the retrieved component is used 
to generate the transformation module. Figure 4.3 is the schema for the creation of 
transformation module. 




Figure 4.3 - Integration process 

The PSDL specification of the retrieved component is parsed and the values 
to construct the transformation module are extracted. These values, which are component 
name, parameter name and values etc., are then used to construct the transformation 
module. At this phase, the generic parameter values should also be supplied to perform the 
instantiation of generic components. A detailed discussion of generic instantiation can be 
found in section 4.C.3. 
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After this process, an Ada package containing the transformation module is 
created and written in the proto-prefix.atomic.a file by utilizing the package 
component _compose _pkg. Resulting package is saved in the prototyping directory. 

An example template about the contents of the generated package can be seen 
in Figure 4.4. ADTs and procedures (corresponding types and operators in PSDL 
specification) are both incorporated the same way. 

proto-prefix.retrieved_component.a 

with retrieved_component; 
package retrieved_component_pkg is 
-if generic 

package tmp_retrieved_component_pkg is new 

retrieved_component ( -parameters- ); 
procedure pi ( -parameters- ) renames tmp_retrieved_component_pkg.pl; 
procedure p2 ( -parameters- ) renames tmp_retrieved_component_pkg.p2; 
end retrieved_component_pkg; 



Figure 4.4 - Generated package of transformation module 

b. Transformation Module for The Components Retrieved by Query 

Designer will create a PSDL specification, which will describe the properties 
of the desired component, during the prototyping process and will use this specification to 
query the software base to find a matching component. If there is any matching component 
in the software base, the retrieval will be successful and a list of retrieved components (one 
or more) will be available. Then the designer will choose the component which best suits 
to his or her design and will integrate that component into his/her system. 



32 



The PSDL query contains the specific information about the required 
component such as the desired component name, parameter name and values, procedure 
names etc. Although the retrieved component satisfies the query, it will probably have 
different component name, parameter name and values, and may even be generic. In this 
case we need to transform these values and names, and instantiate the component if it is 
generic. 

Integrating such a component requires a mapping schema. The names and 
values of the retrieved component should be mapped to those of the names and values of 
the query. This process is accomplished by the integration tool and the resulting 
transformation module contains the implementation consistent with the query. Figure 4.5 
gives the top view of the schema to perform this operation. 




Figure 4.5 - Integration Process 

The PSDL of the retrieved component and query PSDL are parsed and 
portions of relevant information is stored in respective structures. During the composing 
operation the retrieved component is with' ed to the transformation module. If the retrieved 
component is generic, it is instantiated with the generic values supplied. Then, depending 
on whether the retrieved component is operator or type, each procedure is renamed 
according to the procedure and input/output parameter names in the query PSDL. 
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Meanwhile, each input/output parameter value is also checked to determine whether it is 
generic. 

After this procedure is carried out, the implementation is consistent with the 
PSDL query. The transformed representation of the retrieved component is then saved into 
the prototyping directory and it is ready to be used in the prototype. The name of the file 
the implementation is saved in is proto-prefix. atomic. a , where atomic stands for the desired 
component name specified in the PSDL query file. Figure 4.6 is an example output for the 
transformation module, query jtomponent stands for the name of the component specified 
in the PSDL query. 

proto-prefix. query .component. a 

with retrieved.component; 
package query_component_pkg is 
-if generic 

package tmp.query .component _pkg is new retrieved.component(-parameters-); 
procedure query.pl (-parameters-) renames tmp_query_component_pkgjetrieved.pl: 
procedure query _p2 (-parameters-) renames tmp_query_component_pkg.retrieved_p2; 
end query_component_pkg; 



Figure 4.6 - Generated package of transformation module 

One problem that may be encountered during this process is the retrieved and 
query (desired) component names being the same. In this case renaming the retrieved 
component with the same name will cause an error with respect to Ada rules. To prevent 
this problem a certain naming convention must be applied. 



34 



One solution is appending a suffix to the component name given in the PSDL 
query, but this will also require a change in the PSDL query to maintain the consistency 
between the query and implementation. A better solution is to store every component in the 
software base with a known suffix. Thus, their corresponding PSDL specifications will be 
consistent and will require no further modification. The suffix used in this implementation 
is _sb, i.e. the name of a sort procedure stored in software base will be sort_sb. 

A detailed example of integration process is given in Appendix A. 

3. Generic Instantiation 

In case the retrieved component has generic parameters, instantiation of the 
component during the transformation process should take place. There are a few aspects 
that should be taken into consideration during this process. 

First, we need to be able to instantiate the generic components retrieved by named 
look up or keyword query. In this case, the generic values are not available to the software 
base. Generic parameter values should be supplied by user. 

If retrieval is accomplished through PSDL query, the query may contain some or 
all of the generic parameter values. The challenge here is to match the generic parameters 
with the correct values supplied by the query. For example, if two generic parameters exist 
in the retrieved component and two values are supplied by the query PSDL, during 
instantiation correct values should be used for the corresponding appropriate parameter. 
This situation is worsened if the supplied values by the query PSDL are user defined type. 
In this case a chain mapping of generic parameter values will be required. These user 
defined types may even be defined in another PSDL specification as this is a common 
practice in Ada programming where type definitions are generally encapsulated in a 
separate package. In this case the required PSDL file should be searched and appropriate 
generic values should be extracted from this file. 
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Considering the difficulties of such an implementation, an alternative way may be 
to redefine the user defined types in the query PSDL and/or to modify the query such that 
all generic values can be extracted and matched to the generic parameters. 

In this implementation the transformation module generates the template for the 
instantiation of the generic parameters and a message is displayed to the user to request the 
generic parameter values. 
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V. GRAPHICAL USER INTERFACE FOR SOFTWARE BASE 



The software base graphical user interface (GUI) is designed to demonstrate and 
manipulate the capabilities of the software base as efficiently as possible by applying 
generally accepted user interface design principles. This chapter outlines the software base 
graphical user interface design decisions. Appendix B is the user’s manual, and Appendix 
D contains the source code for the software base graphical user interface. 

A. DESIGN PRINCIPLES 

The key goals of a user interface design are to make the system easy to learn and use, 
to reduce the error rate, and to be intuitive to the user. This requires a user interface to be 
consistent, provide feedback, minimize error possibilities and provide error recovery, 
accommodate multiple skill levels, and minimize memorization. 

To satisfy all these goals is not easy in practice, and requires a through analysis of both 
the potential users and the required functionality of the underlying system. 

1. Users 

a. Assumptions 

The CAPS users are expected to be a large spectrum of people, a user can be 
a novice student or a highly skilled software engineer. 

All users are assumed to be accustomed to graphical windowing 
environment. They are considered to know the basic skills such as using a mouse, working 
with pull-down menus or push buttons, etc. 

The user is assumed to have a basic knowledge of PSDL specification 
language and its functionality in the CAPS. He/she is not expected to be an expen. 

The user is assumed to be familiar with the implementation language he is 
working on. Currendy all operator and types are implemented in Ada. 
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b. Requirements 

Considering the assumptions about the user and preferred design decisions, 
an efficient user interface should satisfy these basic requirements for user: 

• Must be suitable for a wide range of users from novice to expert. 

• Must be easy to learn and use, should require no user manual for operation. 

• Must use a graphical, mouse driven interface. 

• Must provide on-line help. 

• Must show user only relevant information and steps. 

• Must display only one panel/menu item at a time. 

• Must provide feedback to the user. 

» Must give warnings if a destructive action is going to take place. 

2, System 

Since CAPS is an ongoing project at the Naval Postgraduate School, underlying 
system requirements are easy to determine. The Software base GUI: 

• Must run on Sun or compatible workstations under Unix operating system. 

« Must run under X-Windows for portability. 

B. IMPLEMENTATION CONSIDERATIONS 

The previous version of software base user interface was written using Stanford’s 
Interviews toolkit (version 2.6) as a prototype. Interviews makes extensive use of C++ 
features such as inheritance and provides a number of predefined objects, including push- 
buttons, scrollbars, file management dialog boxes and text editors. Although it was a good 
candidate to implement this complete version of software base graphical user interface, the 
goal of CAPS is to implement the system tools in Ada as much as possible. Currently, the 
only existing tool that can be used in user interface design making use of Ada is 
Transportable Applications Environment (TAE) [Nasa91]. This aspect of TAE as well as 
the other qualifications described in the following section, has played a key role to choose 
the TAE as the toolkit to implement the software base graphical user interface. 
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1. Transportable Applications Environment (TAE) 

a. Introduction 

The software base graphical user interface is implemented by using 
Transportable Applications Environment (TAE) Plus, an integrated environment for 
developing and running contemporary window and graphics based application systems. 
TAE Plus is a portable software development environment that supports rapid building, 
tailoring, and management of graphic-oriented user interfaces. It provides a suite of 
integrated tools and software libraries for developing and running highly interactive, 
graphical application systems. 

b. Environment 

TAE Plus utilizes X window system, Version 11, Release 4, and the Open 
Software Foundation’s Motif Toolkit, Version 1.1.1. Interviews 2.6 is also bundled with 
TAE Plus. 

Figure 5. 1 illustrates the relationship between a TAE Plus application and the 
XI 1 software. 
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The application primarily calls Wpt functions. The Wpt package is layered on 
top of the Motif Toolkit, which interfaces with the X Window System. Motif Toolkit 
provides various high level interface objects called “widgets”. X Toolkit is based on Xlib, 
which provides useful set of graphics primitives. 

While the Wpt routines provide a convenient buffer between an application 
and the complexities of X 1 1 and the X Toolkit, an application is free to access the X Toolkit 
and Xlib directly. 

TAE Plus is portable across a wide range of computing platforms using either 
UNIX or VAX/VMS operating systems, and is capable of generating code in C, Fortran, 
and Ada. 



c. Advantages 

• Sophisticated GUIs can be built in less time. 

• Easy to use. 

• Flexible and modular, changes can be made locally without effecting the 
other parts of the system. 

• Portable, it can be utilized on many different computing environments. 

• Reusable, interaction objects and panels can be reused and shared avoiding 
the duplication of the effort. 

• Consistent, it provides interfaces that have a common look and feel across 
different applications and environments. 

• Possibility of implementation in different languages. 

C. SOFTWARE BASE GUI ARCHITECTURE 

The software base GUI is designed to manipulate software base operations through a 
series of user interactive panels. These operations can be classified into three category: 

(i) library operations, 

(ii) retrieval operations, and 

(iii) manipulation operations. 
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The software base GUI can be started by executing the command softbase.exe, by 
passing two command line arguments. First argument is the path to the prototype directory 
and the second argument is the prototype prefix, which is required by the software base 
script for compilation. The argument prototype-directory-path specifies the current 
prototype directory where the design process is carried out. The retrieved component and 
the integration package are saved in this directory as default. This path can also be entered 
as an environment variable (for example, $PROTOTYPE). The argument prototype-prefix 
is added to the beginning of the names of each saved file. This prefix is used in software 
base script to group each compilation unit. 

Due to the current equipment setup in CAPS lab, it is necessary to invoke the software 
base on sun51, since Ontos libraries is on sun51. 

Online help is provided for all major software base operations. Various warning and 
error messages are also included to help the user. 

1. Library Operations 

The panel for library functions is the top level of the software base GUI system. 
It provides selection, addition, and deletion operations to be performed on software base 
libraries. 

If the creation of a new library is required, library addition panel provides input 
for the name of the new library and the rule file to be used. This operation allows one to 
create new libraries (for example C++, Adal, Ada2, etc.). 

Library deletion panel is used to remove an existing library and all of the 
components of that library. Library addition and deletion operations are accessible only by 
the authorized personnel (root). 

Library selection option is provided for the user to perform his/her operations on 
the desired library. After selecting the library name, the rest of the operations are performed 
on that particular library. 
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2. Retrieval Operations 

After the desired library is selected, a main menu panel provides access to various 
retrieval operations. This panel also provides the option of component addition to the 
chosen library. 

The main menu panel provides options to conduct a PSDL or keyword query. A 
PSDL query file can be selected by browsing through the directories and it is used to 
perform the query. For keyword query, available keywords are displayed and the user can 
select as many keywords as he/she desires to conduct the query. The result of the queries is 
displayed in a separate panel and the user may select the most suitable component to suit 
his/her needs. 

This panel also provides the named look up of components under two categories: 
operators and types. User can choose a component by browsing through the existing 
components although this would not be an efficient way of retrieval if that library contains 
a large number of components. 

3. Manipulation Operations 

Following the retrieval of a component, various operations can be performed for 
further manipulation. One of the operations is to view the files stored in the software base. 
These files are the PSDL specification, the implementation specification, and the 
implementation body files. 

Other available operations are to delete the selected component from the software 
base, to save the component to the workplace, to print the specification and implementation 
files of the component, and to integrate the component into the system under development. 

D. CONCLUSIONS 

TAE Plus is an efficient tool to design and implement sophisticated graphical user 

I 

interfaces. It is also suitable for hardware platforms that CAPS runs. User interfaces 
consistent with the other CAPS tools user interfaces can easily be developed by using TAE 
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Plus. That Ada is one of the implementation languages of this tool is also suitable, given 
that one of the major goals is to implement the whole CAPS in Ada. 

Evaluating these benefits of TAE Plus, the decision is made to use this tool to 
implement the software base graphical user interface. The developed interface is a mouse 
driven, easy to use graphical user interface which is consistent with the requirements given 
in section 5. A. On-line help facilities are also included, although it is pretty straight forward 
to use the system. Various panels for information, warning and error messages are also 
included. 

The software base graphical user interface user’s manual is given in Appendix B, 
explaining the details of the developed system. 
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VI. CONCLUSIONS AND FUTURE RESEARCH 



A. ACCOMPLISHMENTS 

Three basic tasks are accomplished in this thesis to enhance the software reuse within 
the CAPS. 

First, the software base system first described in [McDo91] was revised and modified 
to accommodate the requirements of current CAPS system. Major changes made were in 
parser and keyword query modules. Parser was modified according to the requirements of 
current PSDL specification rules. Keyword query module was changed to allow multiple 
keywords to be used as search keys. 

Second, an integration mechanism has been designed and implemented to incorporate 
the retrieved components into CAPS. An integration module is created and saved to the 
workplace for every retrieved component. All referencing, renaming, and instantiation 
processes are encapsulated in this module according to the requirements of the prototyped 
system. 

Third, a complete graphical user interface has been designed and implemented to 
demonstrate and manipulate the capabilities of the software base. All software base 
operations such as search, retrieval, and integration can be performed through the software 
base GUI. 

There are still many areas that can be improved by future research. The following 
section describes those areas and provides recommendations that may help solve some of 
the problems. 

B. FUTURE WORK 

1. Providing Components For Software Base 

The components to be added to the software base must be thoroughly tested to 
ensure that they meet their specifications. Testing of software components is still a 



44 



challenging area and requires further research. This is necessary in order to make reusable 
software libraries more successful. 

The components that should be incorporated to the CAPS software base must be 
specified in PSDL. A study for the automation of this process can be found in [Seal92], 
Application of this study to some of the existing software sources such as Booch library, 
RAPID project, and Ada software repository should provide plenty of good quality 
software components to be utilized by the software base. 

2. Integrating Generic Components 

Currently, the generic parameter values of an integrated component is supplied by 
user. This process can be automated by including an internal matching/mapping 
mechanism to the software base. One example of this process is the employment of OBJ3 
specification in [Stei91]. Other mechanisms may be developed that perform the mapping 
of these parameters and matching them with the provided values for generic instantiation. 

3. Ensuring Consistency 

Updating and deleting components from the software base may cause system 
inconsistencies. These inconsistencies may result from the interdependencies of the 
components in the software base or from the dependency of the previously developed 
prototypes to the retrieved components from the software base. Currently, software base 
administrator manages the consistency of the system. This process can be automated by 
utilizing a version control schema. 

4. Seperate GUI For User And Administrator 

The software base GUI designed and implemented in this thesis demonstrates the 
full functionality of the CAPS software base. However, an ordinary user will not need such 
functions of software base as adding and deleting software libraries and components, 
updating existing components, etc. While this detailed software base interface is utilized by 
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system administrator, a simpler interface may be designed, emphasizing only those aspects 
of software base which will be frequently used by users. 
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APPENDIX A - INTEGRATION EXAMPLES 



In this appendix various examples of integration of components are given. The 
component chosen as an example is the partial implementation of a set ADT. Two operators 
are included in it and two versions of the same component is provided : generic and non- 
generic. 

A. INTEGRATING A COMPONENT RETRIEVED BY NAMED LOOKUP 
5. Retrieving a Non-generic Component 

a. PSDL Specification of Retrieved Component 



type set 
specification 

operator empty 
specification 
input si: set 
output s:set 
end 

operator add 
specification 
input x:t, 
si : set 
output so: set 
end 

keywords set 
description { set } end 
implementation ada set_sb end 
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b. Proto.set.a 



with set_sb; 

package set_pkg is 

procedure empty ( si : in set; 

s : out set ) 
renames set_sb . empty ; 

procedure add ( x : in t ; 

si: in set; 
so: out set ) 
renames set_sb.add; 

end set_pkg; 

6. Retrieving a Generic Component 

a. PSDL Specification of Retrieved Component 

type set 

specification 

generic 

t : GENERIC_TYPE , 

operator empty 
specification 
output s:set 
end 

operator add 
specification 
input x:t, 
si : set 
output so -.set 
end 

keywords set 
description { set } end 
implementation ada set_sb end 
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b. Proto. set.a 



with set_sb; 
package set_pkg is 

package tmp_set_pkg is new set_sb ( gen_p ) 

procedure empty ( s : out set ) 
renames t mp_set_p kg . empty ; 

procedure add ( x : in gen_p; 

si : in set; 
so : out set ) 
renames tmp_set_pkg . add; 

end set_pkg; 

B. INTEGRATING A COMPONENT RETRIEVED BY PSDL QUERY 
1. Retrieving a Non-generic Component 

a. PSDL Specification of Retrieved Component 

type set 
specification 

operator empty 
specification 
input si: set 
output s:set 
end 

operator add 
specification 

input x: integer, 
si : set 
output so: set 
end 

keywords set 
description { set } end 
implementation ada set_sb end 
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b. PSDL Query 

type integer_set 
specification 

operator create 
specification 

input in_set :set 
output out_set :set 
end 

operator put 
specification 

input item : integer, 
in_set :set 
output out_set:set 
end 
end 

implementation ada integer_set 



c. Proto, integer _set. a 

with set_sb; 

package integer_set_pkg is 

procedure create ( inset : 

out_set : 

renames set_sb .empty; 



procedure put ( item : in 

in_set : in 
out_set : out 
renames set_sb.add; 



end integer_set_pkg; 



end 



in set; 
out set ) 



integer; 
set ; 
set ) 
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2. Retrieving a Generic Component 

a. PSDL Specification of Retrieved Component 

type set 

specification 

generic 

t : GENERIC_TYPE , 

operator empty 
specification 
output s:set 
end 

operator add 
specification 
input x:t, 
si : set 
output so: set 
end 

keywords set 
description { set } end 
implementation ada set_sb end 

b. PSDL Query 

type int_set 
specification 

operator create 
specification 

input in_set :set 
output out_set :set 
end 

operator put 
specification 

input item .-integer, 
in_set :set 
output out_set:set 
end 
end 

implementation ada int_set end 
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c. Proto. int_set.a 



with set_sb; 

package int_set_pkg is 

package tmp_int_set_pkg is new set_sb ( integer ) 

procedure create ( inset : in set; 

out_set : out set ) 
renames tmp_int_set_pkg . empty ; 

procedure put ( item : in integer; 

in_set : in set; 
out_set : out set ) 
renames tmp_int_set_pkg .add; 

end int_set_pkg; 
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APPENDIX B - SOFTWARE BASE 
GRAPHICAL USER INTERFACE USER’S MANUAL 



The software base graphical user interface is implemented by using Transportable 
Applications Environment (TAE) Plus, an integrated environment for developing and 
running contemporary window and graphics based application systems. 

The Software base GUI can be started by executing the command softbase.exe, by 
passing two command line parameters. First parameter is the path to the prototype directory 
and the second parameter is the prototype prefix, which is required by the software base 
script for compilation. Because of the required environment variables, it should be invoked 
while working on sun5 1 or rxterm'ed to sun5 1 . This requirement is due to the current Ontos 
libraries being on sun51. 

The terminology used in this appendix is consistent with TAE Plus documentation. 

A. LIBRARY FUNCTIONS 

Library functions panel is the top level of the software base GUI system. It provides 
three kinds of functionality: Library Operations, Quit, and Help. 
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O Library Deletion 


Help 





Figure B.l - Library Functions Panel 
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Library Operations option provides three choices which are Library Selection, i.e. 
selecting the library that is going to be used throughout the software base manipulations 
(Adal, Ada2, C++, etc.), Library Addition, in case creation of a new library is desired, and 
Library Deletion, if the deletion of an existing library from the software base is desired. 





Library Addition 



Library Ntm« : 
Halt PU# Nam* : 



Cancel 





Figure B.2 - Library Functions Panel Connections 
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Library Selection panel displays the existing libraries in the software base. Clicking 
one of the libraries, for example Ada, results in all the operations to be performed on that 
particular library. It can be considered as a library domain selector. After clicking on the 
OK button. Main Menu panel is displayed to perform further software base operations. 

Library Addition panel is provided to add new library domains into the software base. 
User keys in the new library name and the associated rule file name. Upon clicking on the 
OK button a new library is created and displayed in the library selection panel. This option 
is provided only for the authorized personnel (root). 

Library Deletion panel is used to delete a library from the software base. This panel 
displays the existing library list. Selecting one of the libraries and clicking on OK button 
brings a warning message. Validating the operation deletes the selected library and all of 
the components in that library from the software base. This option is provided only for the 
authorized personnel (root). 

Quit button terminates the software base GUI. 

Clicking on Help button changes the mouse cursor into a ‘?’ mark. Clicking the cursor 
on the desired item displays a help window about that item. For example, clicking on 
Library Operations brings a help window informing about the functionality of each 
operation. 

B. MAIN MENU 

Main Menu panel provides the basic operations of software base. 
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Figure B.3 - Main Menu Panel 
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These operations, implemented as pull down menu, include Component Add/Update, 
Browse Types! Operators , and Keyword/PSDL Query. 

7. Component Add/Update 

Clicking on Component Add/Update brings the Input File Selection panel. 




Figure B.4 - Input File Selection Panel 



Inputs to the software base are made up of three text files. The PSDL 
specification, the implementation specification, and the implementation body. This panel 
allows the selection of each of these files. 

The directory box displays the files and subdirectories in the current working 
directory. Under this box, the directory label displays the name of the current directory. 
Clicking on a directory in directory box will change to that directory and the path for the 
new directory will be displayed in the directory label. Clicking on a file will select that file 
and the selected file will be displayed in the file label box. After all the files are selected, 
clicking on OK button will cause the input files to be processed. 

If Component Add operation is invoked, the system will attempt to add the 
component to the software base. In case of an error, an error message will be displayed. 
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Otherwise, the panel will be removed and Main Menu panel will be displayed indicating a 
successful addition. 

If Component Update operation is invoked, the new PSDL specification and 
implementation files will replace those that are currently in the software base. 

Cancel button will cause the input operation to terminate. 

8. Browse Types/Operators 

Clicking on Browse Types/Operators brings the Component Selection panel. 




Figure B.5 - Component Selection Panel 

Depending on the selection, this panel displays a list of all the operator or type 
components in the software base and a one line description of each component. These 
components are ordered alphabetically. 

Selecting a component and clicking on View button will bring up a view of that 
components PSDL specification. See section B.C for details on using View panel. 

Selecting a component and clicking on Select button will bring up a menu of more 
detailed operations on the selected component. See section B.D for details about this 
option. 

Cancel button will cause the panel to disappear and brings up the Main Menu 

panel. 
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9. 



Keyword/PSDL Query 



a. Keyword Query 

Clicking on keyword query brings up the Keyword Selection panel. 




Figure B.6 - Keyword Selection panel 



This panel allows the selection of keywords for a keyword search of the 
software base. Existing keywords in the software base are listed in the left box. Clicking on 
a keyword will add it to the Keyword Selected box. Once the desired keywords are selected, 
pushing the OK button will start the search. The resulting list of the components found in 
software base will be displayed in the Component Selection panel (See B.B.2). 

Pushing the cancel button will terminate the keyword query. 

b. PSDL Query 

Clicking on PSDL query will bring up the Query File Selection panel. 

Input to the software base is a PSDL specification file to conduct the query. 
This panel allows the selection of PSDL file. The directory box displays the files and 
subdirectories in the current working directory. Under this box, the directory label displays 
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the name of the current directory. Clicking on a directory in directory box will change to 
that directory and the path for the new directory will be displayed in the directory label. 
Clicking on a PSDL file will select that file and the selected file will be displayed in the file 
label box. After the query PSDL file is selected, clicking on OK button will cause the query 
to be processed. If any components were found that match the query specification then the 
Component Selection panel (See B.B.2) will be displayed providing a list of matching 
components. Otherwise, a message will be displayed stating that no component is found. 
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Figure B.7 - Query File Selection Panel 



C. VIEW COMPONENT 

After a component is selected from Component Selection panel, one of the operations 
that can be performed on the component is to view the files stored in the software base. 
These files are the PSDL specification, the implementation specification, and the 
implementation body files. 

Clicking on View button on the Component Selection panel brings up the PSDL 
Specification Viewing panel. If no component is selected a warning message is displayed. 
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Figure B.8 - PSDL Specification Viewing Panel 



This panel displays the PSDL specification for a given component. The name of the 
file displayed appears on the top of the display box. 

By clicking on the View Spec button, implementation specification of the selected 
component can be viewed in a similar fashion, and consequently the implementation body 
file. Because the viewing panels are not removed, all three files can be viewed 
simultaneously. To remove the panels. Cancel buttons should be pushed. 

As implementation specification and implementation body view panels are very 
similar to this panel, they are not included in the figures. 

D. SELECT COMPONENT 

Clicking on Select button on the Component Selection panel brings up the Select panel. 
If no component is selected a warning message is displayed. 
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Figure B.9 - Select Panel 

This panel enables user to pertorm various operations on the selected component. 
Clicking on Delete button causes the component to be deleted from the software base 
after displaying a warning message. 

Clicking on Save as button brings up the Save Component panel. 




This panel enables the user to save the selected component in any workplace. All three 
files, PSDL specification, implementation specification and implementation body files, are 
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saved into the specified directory. Default is the prototype directory and path to this 
directory is obtained from the first argument of user interface executable. 

Clicking on Print button displays three options: printing the PSDL file, printing the 
implementation specification, or printing the implementation body. Selected files are 
printed through the default printer. 

Clicking on Cancel button terminates the panel. 

Clicking on Help button changes the mouse cursor into a ‘?’ mark. Clicking the cursor 
on the desired item displays a help window about that item. 

Integrate button is used to incorporate the selected component into the system. 
Pushing this button brings up the Integration panel. The integrate button of this panel 
causes the integration tool to be enabled and resulting integration module (the package the 
code is encapsulated) is saved into the prototyping directory together with the retrieved 
component. Depending on the retrieved component being generic or non-generic, an 
information message is displayed in the box. 




Figure B.ll - Integration Panel 

The only difference between Integrate and Integrate! Quit button is while first button 
returns back to the Main Menu panel, the latter quits the program after integration process. 
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APPENDIX C - SOURCE CODE FOR 
INTEGRATION TOOL 



A. PSDL LEX.L 



__ *** File : psdl_lex.l 

-- *** Author : Dogan Ozdemir 

__ -*-** Date : September 1992 

★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★ 



★★★★★★★★★ 



% START 


I DENT Z 


Digit 


[0-9] 


Int 


{Digit ) + 


Letter 


[a-zA-Z_] 


Alpha 


( {Letter) 1 {Digit) ) 


Blank 


[ \t\n] 


Text 


r U] 


StrLit 


[ A,, \\] 1 [\\] [ " \ \ ] 


Quote 


[“] 


A 


[aA] 


B 


[bB] 


C 


[cC] 


D 


[dD] 


E 


[eE] 


F 


[fF] 


G 


[gG] 


H 


[hH] 


I 


[il] 


J 


[jJ] 


K 


[kK] 


L 


[1L] 


M 


[mM] 


N 


[nN] 


0 


[oO] 


P 


[pP] 


Q 


[qQ] 


R 


[rR] 


S 


[sS] 


T 


[tT] 


U 


[uU] 


V 


[W] 


w 


[wW] 



X [xX] 

Y [yY] 

Z [zZ] 

%% 

(A) {D}{A} {ENTER (Z) ; return (ADA_TOKEN) ; } 

{A} {X} {1} {0} {M} {S} { ENTER ( Z ) ;return ( AXIOMS_TOKEN) ; 

{B ) {Y) { Blank} + {A} {L} (L) { ENTER ( Z ) ; return (BY_ALL_TOKEN) ; 



} 

} 
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{B} (Y) {Blank} +{S} {0} {M} { E} { ENTER ( Z ) / return (BY_S0ME_T0KEN) ; } 

{C} {0} {N} (T) (R) {0} (L) {ENTER ( Z) ; return (C0NTR0L_T0KEN) ; } 

{C} {0} {N} {S} { T} {R} (A) (I) {N} (T) {S} { ENTER ( Z ) ; return (C0NSTRAINTS_T0KEN) ; 
(D) {A} { T } {A} {ENTER (Z) /return (DAT AJTOKEN) ; } 

(D) {E} {S} {C } {R} {1} {P) {T} {1} {0} (N) { ENTER ( Z ) ; return ( DESCRIPTION_TOKEN) ; 

(E) {D} { G } (E) {ENTER(Z) ; return (EDGE_TOKEN) ; } 

{ E } { N ) { D } {ENTER ( Z) ; return (END_TOKEN) ; } 

{E} {X} {C} {E} {P} {T} {1} {0} {N} { S } { ENTER ( Z ) ; return (EXCEPTIONS_TOKEN) ; } 
{E} {X} {C } {E} {P} {T} {1} {0} {N} { ENTER ( Z ) ; return ( EXCEPT I ONJTOKEN; } 

{F} {1} CN) {1} {S} { H } {ENTER ( Z) ; return (FINISH_TOKEN) ; } 

{W} {1} {T> {H} {1} {N} {ENTER ( Z) ; return (WITHIN_TOKEN) ; } 

(G) {E} {N} {E} {R} {1} (C) {ENTER (Z ); return (GENERICJTOKEN) ; } 

{G} {R} {A} {P} {H} { ENTER ( Z) ; return (GRAPH_TOKEN) ; } 

{H} {0} {U} {R} {S} {ENTER ( Z) ; return ( HOURS_TOKEN) ; } 

{ I } { F } {ENTER (Z) ; return (IF_TOKEN) ; } 

{ I } {M> { P> {L} {E} {MHEHN} {T} {A} {T} { I } {0} {N} 

{ENTER (Z) ; return (IMPLEMENTATION_TOKEN) ; } 



(IHNHIHTHIHAHLHLHY) {ENTER (Z) 
{1} {N} { P } {U} {T} { ENTER ( Z ) 

{K) {E} {Y} {W} {0} {R} (D) {S} { ENTER ( Z ) 

{M} {A} (X) {1} {M} {U} (M) { ENTER ( Z ) 

{E} {X} {E} {C} {U} {T} { I } {0} {N} {ENTER (Z) 
{T} {1} { M } {E} { ENTER ( Z ) 

{R} {E} {S} {P} {0} {N} {S} {E} { ENTER ( Z ) 

{MHIHCHRHOHSHEHC} I {M} { I } {C> {R} 
{ENTER (Z) ; return (MICROSEC_TOKEN) / } 



; return ( INITIALLY_TOKEN) 
; return ( INPUT_TOKEN ) ; } 

; return (KEYWORDS_TOKEN) ; 
; return (MAXIMUM_TOKEN) ; 

; return (EXECUTION_TOKEN) 
; return (TIME_TOKEN) ; } 

; return ( RESPONSE_TOKEN 
{0} {SHE} {C} {0} {N} {D} {S} 



) ;} 



{M} {1} {N} {1} {M} {U} {M} {ENTER(Z) /return (MINIMUM_TOKEN) / } 

{C} {A} { L } {L} {1} {N} { G } {Blank) +{P} {E} { R } {1} {0} { D } 



{ENTER (Z) /return ( C ALL_PER IOD_TOKEN ) ; } 

{M} {1} {N} I {M} {1} {N} {U} {T} {E} {S} { ENTER ( Z) ; return (MIN_TOKEN) ; } 



} 

} 



{M} { S } I {M} {1} { L} {L} {1} {S} {E} {C} {0} {N} {D} {S} { ENTER ( Z ) ; return (MS_TOKEN) ; } 

{0} {P} {E} {R} {A} {T} (0} {R} {ENTER (Z) /return (OPERATOR_TOKEN) / } 

{0} { U } {T} { P } { U) {T } {ENTER (Z) /return (OUTPUT_TOKEN) / } 

{ P } {E} { R } { 1} {0} {D} {ENTER (Z) /return {PERIOD_TOKEN) / } 

{R} {E} {Q} {U} {1} {R} {E } { D} { Blank} + { B} {Y} { ENTER ( Z ) / return (REQ_BY_TOKEN) z } 
{R} {E} {S} {E} {T} {Blank} + {T} {1} {M} {E} {R} {ENTER ( Z ) / return ( RESET_TOKEN) / } 

{S} {E} { C } I {S} {E } { C } {0} {N} { D} {£} { ENTER { Z ) /return (SEC_TOKEN) / } 

{S} { P} {E} {C} {1} {F} {1} (C) {A} {T} {1} {0} {N} 

{ ENTER ( Z ) / return (SPECIFICATION_TOKEN) / } 

{S} {T} {A} {R} {T} {Blank} + {T} {1} {M} { E } {R} { ENTER ( Z ) / return ( START_TOKEN) / } 



(S } { T} {A} {T} {E} {S} {ENTER (Z) /return (STATES_TOKEN) / } 

{S } {T} {0} { P} {Blank} + {T} {1} {M} {E} {R} { ENTER ( Z ) / return (STOP_TOKEN) / 

{S} {T} {R} {E} (A) {M} (ENTER(Z) / return (STREAM_TOKEN) / } 

{T} {1} {M} { E } { R } {ENTER (Z) /return (TIMER_TOKEN) / } 

{T} { R} { I } {G} {G } {E} {R} {E} { D) {ENTER ( Z ) / return ( TRIGGERED_TOKEN) / } 

{T}{Y}{P}{E} {ENTER (Z) /return (TYPE_TOKEN) / } 

{V} {E} {R} {T} {E } {X} {ENTER (Z) /return (VERTEX_TOKEN) / } 

"and" I "AND" (ENTER(Z) / return (AND_TOKEN) ; } 

"or" I "OR" {ENTER (Z) /return (OR_TOKEN) ; } 

"xor" I "XOR” {ENTER(Z) /return (XOR_TOKEN) ; } 



{ ENTER ( Z ) ; return (GREATER_THAN_OR_EQUAL) / 



} 



} 
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"<=" 




( ENTER ( Z ) ; return ( LESS. 


_THAN_OR_] 


"/=" 1 


n _ ii 


( ENTER ( Z ) ; return { INEQUALITY ) ; 


" ->" 




(ENTER (Z) ; return (ARROW) ; } 






( ENTER ( Z ) ; return ( ' = ’ ) 


) 






(ENTER (Z) ; return ( ' + ' ) 


) 


11 — 11 




( ENTER ( Z ) ; return ( ' - ' ) 


) 


II ★ II 




( ENTER ( Z ) ; return ( ' * ' ) 


) 






(ENTER (Z) ; return ( ' / ' ) 


) 






( ENTER ( Z ) ; return ( ) 


) 


" 




(ENTER (Z) ; return ( ' ( ’ ) 


) 


" ) ” 




(ENTER (Z) ; return ( ' ) ' ) 


) 


" r 




( ENTER ( Z ) ; return ( ' [ 1 ) 


) 


-] ■ 




(ENTER (Z) ; return ( ' ] ' ) 


) 


n . it 




(ENTER (Z) ; return ( ' : ' ) 


) 


n ii 




( ENTER ( Z ) ; return ( ' , ' ) 


) 


ii ii 




(ENTER (Z) ; return ( ' . ' ) 


) 


,, , „ 




(ENTER (Z) ; return ( ' 1 ' ) 


) 


•i > ii 




(ENTER (Z) ; return ( ' >' ) 


) 






( ENTER ( Z ) ; return ( 1 < ' ) 


) 


" mod" 


I "MOD" 


(ENTER ( Z ) ; return (MOD_TOKEN) ; } 


" rem" 


1 "REM" 


( ENTER ( Z ) ; return ( REM_TOKEN ) ; } 


ii ★ ★ ii j 


"EXP" 1 "exp" 


(ENTER(Z) ; return (EXP_TOKEN) ; } 


"abs" 


1 "ABS" 


(ENTER (Z) ; return (ABS_TOKEN) ; } 


"not" 


1 "NOT" 


(ENTER ( Z) ; return (NOT_TOKEN) ; } 


(THRHUHE) 


(ENTER ( Z) ; return (TRUE) ; } 


(F) (A) (L) (S) {E> 


(ENTER ( Z) ; return (FALSE) ; ) 


<IDENT>\ ' 


( ENTER (Z) ; return ( ' ' ' ) ; 


; ) 


{Letter} (Alpha) * 


(ENTER (I DENT) ; 





str len (psdl_lex_df a .yytext , length) ; 
the__id_token ( 1 .. length) := psdl_lex_df a .yytext ; 



return ( IDENTIFIER) ; } 



(Quote) (StrLit) * (Quote) 


(ENTER 


( Int } 


{ ENTER 


( Int) " . " (Int) 


(ENTER 


" { " (Text) *" } " 


(ENTER 


[ \n] 


(NULL; 


[ \t] 


(NULL; 


%% 





(Z) ; return ( STRING_LITERAL) ; } 
(Z) ; return (INTEGER_LITERAL) ; } 

(Z) ; return (REAL_LITERAL) ; } 

(Z) ; re turn ( TEXT JTOKEN) ; } 

} 

} --ignore spaces and tabs 



with Psdl_Tokens, component__aux_pkg; 
use Psdl_Tokens , component_aux_pkg ; 



package Psdl_Lex is 

function yylex return token; 
end Psdl_Lex; 



package body Psdl__Lex is 
## 

end Psdl_Lex; 
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B. PSDL.Y 



__ ★★★ File : psdl.y 

-- ★★★ Author : Dogan Ozdemir 

__ *** Date : September 1992 

%token ' ( ' ' ) ' ' [ 1 ' ] ' ' : ' ' , 1 ' I 1 

% token ARROW 

%token TRUE FALSE 

%token ADA_TOKEN AXIOMS_TOKEN 

%token BY_ALL_TOKEN REQ_BY_TOKEN BY_SOME_TOKEN 

%token CALL_PERIOD_TOKEN CONTROL_TOKEN 

%token CONSTRAINTS_TOKEN 

%token DESCRIPTION_TOKEN DATA_TOKEN 

%token END_TOKEN EDGE_TOKEN EXCEPTION_TOKEN 

%token EXCEPTIONS_TOKEN EXECUTION_TOKEN 

%token FINIS H_TOKEN 

%token GENER I C_TOKEN GRAPH_TOKEN 

% token HOURS_TOKEN 

%token IF_TOKEN IMPLEHENTATION_TOKEN 

%token INPUT_TOKEN INITIALLY_TOKEN 

%token KEYWORDS_TOKEN 

% token MAXIMUM_TOKEN MINIMUM_TOKEN 

%token MICROSEC_TOKEN MIN_TOKEN MS_TOKEN 

% token MOD_TOKEN NOT_TOKEN 

%token OPERATOR_TOKEN OR_TOKEN 

%token OUTPUT_TOKEN 

%token PERIOD_TOKEN 

%token RES ET_TOKEN RES PONS E_TO KEN 

%token SPECIFICATI ON_TOKEN SEC_TOKEN 

%token START_TOKEN STATES_TOKEN STOP_TOKEN 

%token STREAM_TOKEN 

%token TIME_TOKEN TIMER_TOKEN 

%token TYPE_TOKEN TRIGGERED_TOKEN 

% token VERTEX_TOKEN 

%token WITHIN_TOKEN 

%token TEXT_TOKEN 

%token IDENTIFIER 

%token STR I NG_L I TERAL 

%token INTEGER_LITERAL 

%token RE AL_L I TERAL 



--operator precedences 

%lef t AND_TOKEN OR_TOKEN XOR_TOKEN LOGICAL_OPERATOR 

%lef t '<' ' >’ '=' GREATER_THAN_OR_EQUAL LESS_THAN_OR_EQUAL INEQUALITY 

RELAT 1 0NAL_0 P ERATOR 

% le f t ' + ' • 1 &’ B I N AR Y_ADD I NG_0 P ERATO R 

%lef t UNAR Y_ADD I NG_0 P ERATOR 

%lef t 1 *' */■ MOD_TOKEN REH_TOKEN MULTIPLYING_OPERATOR 

%lef t EXP_TOKEN ABS_TOKEN NOT_TOKEN HIGHEST_PRECEDENCE_OPERATOR 



69 



%start start_symbol 

( 

subtype yystype is integer; 

} 

%% 

start_symbol : 

psdl 

/ 

psdl ; 

psdl 

component 

I 

component : 

data_type 

I 

operator 

data_type : 

TYPE_TOKEN 

{ 

is_adt :=True; 

} 

IDENTIFIER 

{ 

null; 

} 

type_spec type_impl 

type_spec : 

SPECIFICATION_TOKEN opt ional_gener ic_param 
opt ional_type_decl 

op_spec_list functionality END_TOKEN 
/ 

opt ional_generic_param: 

GENERIC TOKEN 

> 

( 

is_generic := True ; 
gen_par ;= True; 

} 

1 i s t_of _type_dec 1 

I 

opt ional_type_decl : 

list_of_type_decl 

I 

op_spec_list : 

op_spec_list 
OP ERATO R_TOKEN 
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IDENTIFIER 

{ 

tmp_op_name ( 1 . . length) : =the_id__token ( 1 . . length) 
len_name : =length; 

} 

opera tor_spec 
{ 

if is_adt then 

component_aux_pkg . Put_adt_op 
( tmp_op_name , len_name , has_inputs , has_outputs , adt_op_ptr ) 
has_inputs:= False; 
has_outputs : = False; 
in_par : =False ; 
out_par : =False ; 
end if; 

} 

1 


operator : 


/ 

OP ERATO R_TO KEN 
( 

is_operator := True ; 

} 

IDENTIFIER 

{ 

null; 

} 

operator_spec operator_impl 


operator_spec : 


S PEC I F I CAT I ON_TOKEN 
interface 
functionality 
END_TOKEN 


interface : 


interface attribute reqmts_trace 
1 


attribute : 


/ 

GENERIC_TOKEN 

{ 

is_generic := True ; 
gen__par := True; 

} 

1 i s t_o f _type_dec 1 
1 

INPUT__TOKEN 

( 

has_in__param := True; 
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has__inputs := True; 
in_par := True; 
gen_par := False; 

} 

1 i s t_o f _ty pe_dec 1 

I 

OUTPUT_TOKEN 

{ 

has_out_param := True; 
has_outputs := True; 
in_par : = False; 
out_par := True; 
gen_par : = False; 

} 

1 i s t_o f _type_dec 1 
I 

STATES_TOKEN 

1 i s t_o f _ty pe_dec 1 

INITIALLY_TOKEN 

in it ial_expression_list 

I 

EXC E PT I ONS_TOKEN 
id_l ist 
I 

MAX IMUM_TOKEN EXECUT I ON_TOKEN TIME_TOKEN time 

list_of_type_decl : 

list_of_type_decl 1 , ' type_decl 

I 

type_decl 



type_decl : 

id_list 

( 

if gen_par then 

if the_id_token ( 1 .. length) = "BASE_TYPE" or 
the_id_token ( 1 .. length) = "base_type" then 
null ; 

else 

component_aux_pkg . Put_gen_parameter ( the_id_token , 

" ", length, 1 , gen_par__ptr ) ; 

end if; 
end if; 

if in_par then 
if out_par then 
null; 
else 

component_aux_pkg . Put_in_parameter ( the_id_token , length, in_par_ptr) ; 
end if; 
end if; 
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if out_par then 

component_aux_pkg . Put_out_parameter ( the_id_token, length, out_par_ptr ) 
end if; 



) 


• . ■ 

type_name 

( 

if in_par then 
if out_par then 
null; 
else 

component_aux_pkg . Put_in_parameter_val ( the_id_token, 

length, in_par_val_ptr ) ; 

end if; 
end if; 


type_name : 


if out_par then 

component_aux_pkg . Put_out_parameter_val ( the_id_token , 

length, out_par_val_ptr) ; 

end if; 

) 

/ 

IDENTIFIER 
1 [ ' 

1 i s t _o f _ t y p e_d e c 1 
' ] ' 


id_list : 


1 

IDENTIFIER 
id_ list 

l i 

/ 

IDENTIFIER 

1 

IDENTIFIER 


reqmts^trace : 


RE Q_B Y_TOKEN id_list 
1 


functionality : 


keywords inf ormal_desc formal_desc 
/ 


keywords : 


KEYWORDS_TOKEN 

{ 

out_par := False; 

gen_par := False; --in case no in/out parameters 

null ; 
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} 

id_ list 



informal_desc : 

DESCR I PT ION_TOKEN TEXT_TOKEN 



formal_desc : 

AXIOMS_TOKEN TEXT_TOKEN 



type_impl : 

IM PLEMENT AT I ON_TOKEN ADA_TOKEN IDENTIFIER 

{ 

withname . name ( 1 . . length) : = the__id_token ( 1 . . length) ; 
withname . len : =length; 

} 

END_TOKEN 

I 

IMPLEMENTATION_TOKEN type_name op_impl_list END_TOKEN 

op_impl_list : 

op_impl_list 0 PERATOR_TOKEN IDENTIFIER operator_impl 



operator_impl : 

IM PLEMENT AT I ON_TOKEN ADA_TOKEN IDENTIFIER 

{ 

withname . name ( 1 . . length) : =the_id_token ( 1 . . length) ; 
withname . len : =length; 

} 

END_TOKEN 

I 

IMPLEMENTATION_TOKEN psdl_impl END_TOKEN 
/ 

psdl_impl : 

data_f low_diagram streams timers control_constraints 

inf ormal_desc 

/ 

data_f low_diagram : 

GRAPH_TOKEN vertex_list edge_list 

vertex_list : 

vertex_list VERTEX_TOKEN op_id opt ional_t ime 

I 

f 

edge_list : 

edge_list EDGE_TOKEN IDENTIFIER 
optional_t ime op_id ARROW op_id 
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op_id : 



IDENTIFIER opt_arg 



opt_arg : 

' ( ' optional_id_list 
' I ' opt ional_id_l ist 1 ) ' 



opt ional_id_list : 

id_l ist 



opt ional_time : 

1 : ' time 



streams : 

DATA_TOKEN STREAM_TOKEN list_of_type_decl 



timers : 

TIMER_TOKEN id_list 



control_constraints : 

CONTROL_TOKEN CONSTRAINTS_TOKEN constraints 

constraints : 

constraints OPERATOR_TOKEN IDENTIFIER 
opt_trigger opt_period opt_ f inish_within 
opt_mcp opt_mrt constraint_opt ions 
I 

OPERATOR_TOKEN IDENTIFIER 

opt_trigger opt_period opt_f inish_within 

opt_mcp opt_mrt 

• \ 
constraint_opt ions : 

constraint_opt ions OUTPUT__TOKEN id_list IF_TOKEN 
expression reqmts_trace 
I 

cons traint_opt ions EXCEPT I ON_TOKEN IDENTIFIER 
opt_if_predicate reqmts_trace 
I 

constraint_opt ions timer_op IDENTIFIER 
opt_if_predicate reqmts_trace 
I 

opt_trigger : 

TRIGGERED_TOKEN trigger opt_if_predicate reqmts_trace 
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trigger : 



BY_ALL_TOKEN id_list 

I 

BY_SOME_TOKEN id_list 



opt_period : 

PERIOD_TOKEN time reqmt s_t race 



opt_f ini sh_wi thin : 

FINISH_TOKEN WITHIN_TOKEN time reqmts_trace 



opt_mcp : 

MINIMUM_TOKEN CALL_PERIOD_TOKEN time reqmts_trace 



opt^mrt : 

max__resp__t ime time reqmts_trace 



max_resp_time : 

MAXIMUM_TOKEN RESPONSEJTOKEN TIME_TOKEN 

t imer_op : 

RESET_TOKEN 

I 

START_TOKEN 

I 

STOP_TOKEN 

opt_if_predicate : 

IF_TOKEN expression 

I 

; > 
init ial_expression_list : 

init ial_expression_list ' , ' init ial_express ion 

I 

init ial_expr ess ion 
/ 

init ial_expression : 

TRUE 

I 

FALSE 

I 

INTEGER_L I 1 TERAL 

I 

RE AL_L ITERAL 

I 
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S TR I NG_L I TERAL 



IDENTIFIER 

I 

type_name ' . ' IDENTIFIER 
I 

type_name ' . ' IDENTIFIER ' ( ' init ial_express ion_l ist ' ) ' 
I 

' ( * initial_expression_list ‘ ) ' 

I 

initial_expression log_op init ial_express ion %prec 
logical_operator 
I 

init ial_expression rel_op init ial_express ion %prec 
relat ional_operator 
I 

init ial_expression %prec unary _adding_operator 

I 

' + 1 init ial_expression %prec unary _adding_operator 
I 

init ial_expr ess ion bin_add_op init ial_expr ess ion %prec 
mult iplying_operator 
I 

init ial_expression bin_mul_op initial_expression %prec 
mult iplying_operator 
I 

initial_expression EXP_TOKEN init ial_expression %prec 
highest_precedence_operator 
I 

NOT_TOKEN init ial_expression %prec 
highest_precedence_operator 
I 

ABS_TOKEN init ial_express ion %prec 
highest_precedence_operator 

t 

log_op : 

AND_TOKEN 

I 

OR_TOKEN 

I 

XOR_TOKEN 

rel_op : 

' < ’ I ' > ' I I GREATER_THAN_OR_EQUAL 

I 

LESS_THAN_OR_EQUAL | INEQUALITY 

bin_add_op : 

' + ' I ' - ' I ' Sc ' 

/ 

bin_mul_op : 
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• * ' I ' / ' I MODJTOKEN I REM_TOKEN 
/ 

t ime : 

t ime_number MICROSEC_TOKEN 

I 

time_number MS_TOKEN 

I 

time_number SEC_TOKEN 

I 

time_number MIN_TOKEN 

I 

t ime_number HOURS — TOKEN 

t ime_n umber : 

INTEGER_LITERAL 

express ion_list : 

expression_list ' , ' expression 

I 

expression 



expression : 

TRUE I FALSE I INTEGER_LITERAL I time I REAL_L I TERAL 
I STR ING_L I TERAL I IDENTIFIER 
I type_name ' . ' IDENTIFIER 

I type_name ' . ' IDENTIFIER ' ( 1 expression_list ' ) ' 

I ' ( ' expression_list ' ) 1 

I expression log_op expression %prec logical_operator 
I expression rel_op expression %prec relational_operator 
I expression %prec unary _adding_operator 

I expression %prec unary_adding_pperator 

I expression bin_add_op expression %prec 
unary_adding_operator 

I expression bin_mul_op expression %prec 
multiply ing_oper at or 

I expression EXP_TOKEN expression %prec 
highest_precedence_operator 

I NOT_TOKEN expression %prec highes t_precedence_operator 
I ABS_TOKEN expression %prec highest_precedence_operator 



with Text_io, psdl_tokens , psdl__goto, psdl_shi f t_reduce , psdl_lex, 
component_aux_pkg ; 

use Text_io, psdl_tokens , psdl_goto, psdl_shift_r educe , psdl_lex, 
component_aux_pkg ; 

package component_parser is 

procedure Yyparse; 
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echo : 

number_of_errors 
in_par : 

out_par : 

gen_par : 

has_inputs : 

has_outputs : 

tmp_op_name : 

len_name : 



boolean := false; 

: Natural : = 0; 
Boolean : =False ; 
Boolean : =False ; 
Boolean : =False ; 
Boolean : =False ; 
Boolean : =False ; 
String ( 1 . . 30 ) ; 
Integer : =0 ; 



end component_parser; 

package body component_parser is 

procedure Yyerror (s : in string := "syntax error") is 
begin 

number_of _error s := number^of _er rors + 1; 
put {"*** " ) ; 
put_line ( s ) ; 
end Yyerror; 



##%procedure_ parse 
end component_parser; 
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c. 



QUERY_LEX.L 



-- *** File : query_lex.l 

-- *** Author : Dogan Ozdemir 

-- *** Date : September 1992 

★ ★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★'ft-*' 



% START 


I DENT Z 


Digit 


[0-9] 


Int 


{Digit } + 


Letter 


[a-zA-Z_] 


Alpha 


( {Letter} 1 (Digit) ) 


Blank 


[ \t\n] 


Text 


rm 


StrLit 


r-wi i [\\] r\\] 


Quote 


[-] 


A 


[aA] 


B 


[bB] 


C 


[CC] 


D 


[dD] 


E 


[eE] 


F 


[fF] 


G 


[gG] 


H 


[hH] 


I 


[il] 


J 


[jJ] 


K 


[kK] 


L 


[1L] 


M 


[mM] 


N 


[nN] 


0 


[oO] 


P 


[pP] 


Q 


[qQ] 


R 


[rR] 


S 


[sS] 


T 


[tT] 


U 


[uU] 


V 


[W] 


W 


[wW] 


X 


[xX] 


Y 


[yY] 


Z 


[zZ] 



%% 



(A) 
{A} 
{B} 

(B) 

(C) 
(C) 



{D} {A} 

(X){IHO)(M)(S) 

{Y} {Blank}+ {A} {L} (L) 
{Y} (Blank}+ {S} (0} (M> 
{0} <N} {T} (R) (0} {L} 
{0} {N} {S} (T) (R) {A) {I 



{ENTER ( Z) ; return (ADAJTOKEN) ; } 

{ ENTER ( Z ) ; return (AXIOMS_TOKEN) ; } 

{ENTER (Z) ; return (BY_ALL_TOKEN) ; } 

{E} {ENTER (Z) ; return (BY_SOME_TOKEN) ; } 

{ENTER (Z) ; return (CONTROL_TOKEN) ; } 

}(N}{T}{S) { ENTER ( Z ) ; return ( CONSTRAINTS_TOKEN ) ; 



} 
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{ D } (A) { T } {A} {ENTER (Z) ; return (DATA_TOKEN) ; } 

{D} { E } { S } {C } { R} { I } { P } (T) {1} {0} (N) (ENTER ( Z) ; return ( DESCRIPTI0N_T0KEN) ; 
{E}{D}{G}{E} {ENTER (Z ); return (EDGE_T0 KEN) ; } 

{E} { N > { D } {ENTER (Z) ; return (END_T0KEN) ; } 

{E} {X} {C } (E) { P} (T) {1} {0} {N} { S } { ENTER ( Z ) ; return ( EXCEPT I0NS_T0KEN) ; ) 

{ E } {X} {C} (E) { P } {T} (I) {0} {N} { ENTER ( Z ) ; return ( EXCEPTIONJTOKEN) ; } 

{F} {1} {N} {!) {S} {H} {ENTER (Z) ; return ( FINISH_TOKEN) ; } 

(W) {1} {T } { H } {1} {N} {ENTER(Z) ; return (WITHIN_TOKEN) ; ) 



{ ENTER ( Z ) ; r e tu r n ( GENER I C_TOKEN ) ; ) 

} 

} 



(G) {E} {N} {E} {R} {1} (C) 

(G) {R} {A} { P } { H } { ENTER ( Z ) ; return (GRAPH_TOKEN) 

(H) {0} {U} (R) { S > {ENTER (Z) ; return ( HOURSJTOKEN) 

(I) {F} (ENTER (Z) ; return (IF_TOKEN) ; } 

{ 1} {M> {P} (L) {E} {M} {E} {N} {T} (A) {T} {1} {0} (N) 

{ENTER (Z) ; return ( IMPLEMENTATION_TOKEN) ; } 



{I){N}{I}{T}{I}(A}(L}{L}{Y} 

{I){N){P}{U}{T) 

{K}{E}{Y}{W){0}{R}{D}{S} 

{M){A}{X)(I){M}{U){M) 

(E) {X} {E} (C) {U} {T} {1} (O) {N> 
{T} { I } {M} {E} 

(R}(E}{S){P}{0}(N}(S}{E} 



( ENTER ( Z ) ; return (INITIALLY_TOKEN) ; } 

( ENTER ( Z ) ; return ( INPUT_TOKEN ) ; } 

{ ENTER (Z) ; return (KEYWORDS_TOKEN) ; } 
{ENTER ( Z) ; return (MAXIMUM_TOKEN) ; } 

{ ENTER (Z) ; return (EXECUTION_TOKEN) ; } 

(ENTER (Z) ; return (TIME_TOKEN) ; } 

{ ENTER ( Z ) ; return (RESPONSE_TOKEN) ; } 



(M) (I) (C) {R} {0) (S) {E} {C} I {M} (I) {C} (R}{0) (S) {E} {C} {0} (N) (D) {S} 



{ENTER (Z) ; return (MICROSEC_TOKEN) ; } 



{M} {I) { N} {1} {M} {U} (M) {ENTER ( Z) ; return (MINIMUM_TOKEN) ; } 

{C} (A) {L} {L){I}{N} (G) {Blank} + { P } { E } {R} { I } {0} {D} 



{ENTER (Z) ; return (CALL_PERIOD_TOKEN) ; } 
{M} { I } { N> I (M) (I) {N> {U} {T} {E} {S} 



} 



{ENTER (Z) ; return (MIN_TOKEN) ;} 

{M} {S} I {M} {1} {L} {L} {1} {S} {E} {C} {0} {N} {D} { S } { ENTER ( Z ) ; return (MS_TOKEN) ; 

} 

{0} {P} {E} {R} {A} {T> {0} {R} { ENTER (Z) ; return (OPERATOR_TOKEN) ; } 

{0} {U} {T} {P} {U} {T> { ENTER ( Z) ; return (OUTPUT_TOKEN) ; } 

{ P } {E } { R> { 1 } { 0 } {D} {ENTER ( Z) ; return (PERIOD_TOKEN) ; } 

{R} { E } { Q } { U } {1} {R} {E} { D } {Blank} +{B} {Y} { ENTER (Z) ; return ( REQ_BY_TOKEN ) ; } 

{R} { E} { S } {E} {T} {Blank} + {T} {1} {M} {E} {R} { ENTER ( Z ) ; return ( RESET_TOKEN) ; } 

{S} {E} (C} I {S } { E } {C} {0} (N} { D } {S} { ENTER ( Z ) ; return (SEC_TOKEN) ; } 

{S}{P}(E}{C}{I}{F}(I}(C}{A}{T}{I}{0}{N} 



{ ENTER (Z) ; return ( SPECIFICATION_TOKEN) ; } 

{S} {T} {A} {R} (T) {Blank}+{T} {1} {M} {E} {R} (ENTER (Z) ; return ( START_TOKEN) ; } 

{S} {T} (A} CT} {E} {S} {ENTER ( Z) ; return (STATES_TOKEN) ; } 

{S} {T} {0} {P} (Blank}+{T} {1} {M} {E} {R} { ENTER ( Z ) ; return (STOP_TOKEN) ; } 

{S} {T} {R} {E} {A} {M} {ENTER (Z) ; return ( STREAM_TOKEN) ; } 

{T} (1} {M} {E} {R} { ENTER ( Z) ; return (TIMER_TOKEN) ; } 

{T} { R} {1} {G} (G) {E} {R} {E} {D} { ENTER ( Z ) ; return (TRIGGERED_TOKEN) ; } 

{ T } { Y } { P} { E } (ENTER ( Z) ; return (TYPE_TOKEN) ; } 

{V} {E} {R} {T} (E) {X} (ENTER (Z ); return (VERTEX_TOKEN) ; } 

"and" I "AND" (ENTER (Z) ; return (AND_TOKEN) ; } 

"or" I “OR" (ENTER(Z) ; return (OR_TOKEN) ; } 

"xor" I "XOR" {ENTER (Z) ; return ( XOR_TOKEN) ; } 

" >= " { ENTER ( Z ) ; return ( GREATER_THAN_OR_EQUAL ) ; } 



“ < = 11 



{ENTER ( Z) ; return (LESS_THAN_OR_EQUAL) ; } 
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"/=" 1 


ii ^ il 


{ENTER (Z) ; return ( INEQUALITY) ; 


: } 


II _-s > II 




{ENTER ( Z) ; return (ARROW) ; } 




II II 




{ENTER ( Z) ; return ( '=') ; } 




II II 




{ENTER ( Z) ; return ('+') ; } 




II 11 




{ENTER ( Z) ; return ('-') ; } 




II ★ II 




{ENTER ( Z) ; return ('*•) ; } 








{ENTER ( Z) ; return ( '/') ; } 




"Sc" 




{ ENTER ( Z) ; return ( 'Sc' ) ; } 




II ^ II 




{ENTER ( Z) ; return ('(') ; } 




II ^ II 




{ENTER (Z) ; return ( ' )’) ; } 




■ [“ 




(ENTER (Z) ; return ( '[') ; } 




II j II 




{ENTER (Z) ; return ( ']') ; } 




II . II 




{ ENTER ( Z ); return ( 1 :') ; } 




II II 

/ 




{ENTER (Z) ; return (','); } 




II II 




{ ENTER ( Z) ; return ( '.'} ; } 




II I II 




{ENTER (Z) ; return ( ' |‘ ) ; } 




II ^ II 




{ENTER (Z) ; return ( ’>' ) ; } 




1' <T " 




{ENTER ( Z ) ; return ('<'); } 




"mod" 


1 11 MOD" 


{ ENTER ( Z ) ; return ( MOD_TOKEN) ; 


} 


" rem" 


! "REM" 


{ ENTER ( Z ) ; return ( REMJTOKEN) ; 


} 


ii ★ ★ n j 


"EXP" 1 "exp" 


(ENTER (Z) ; return (EXP_TOKEN) ; 


} 


" abs ■ 


! "ABS" 


{ENTER (Z) ; return (ABS_TOKEN) ; 


) 


" not" 


1 "NOT" 


{ ENTER ( Z ) ; return ( NOT_TOKEN ) ; 


} 


{T} {R} {U} {E} 


{ENTER ( Z) ; return (TRUE) ; } 




{F} {A} {L} {S} {E} 


{ENTER(Z) ; return ( FALSE) ; } 




<IDENT>\ 1 


{ ENTER ( Z ) ; return ('■'); } 




{Letter} {Alpha} * 


{ENTER (I DENT) ; 





str len (query_lex_df a .yytext , length) ; 

the_id_token ( 1 . . length) : = query_lex_df a .yytext ; 

return ( IDENTIFIER) ; } 

{Quote } {StrLit ) * {Quote } 

{Int} 

{Int} " . - {Int} 

" { " {Text} *" } " 
t \n ] 

[ \t] 

%% 

with query _Tokens , query _aux__pkg ; 
use query_Tokens , Text_io, query_aux_pkg ; 

package query_Lex is 

function yylex return token; 
end query_Lex; 

package body query _Lex is 
#tf 

end query_Lex; 



{ENTER (Z) ; return ( STRING_LITERAL ) ; 
{ ENTER ( Z ) ; return ( INTEGER_LITERAL ) 
{ENTER (Z) ; return (REAL_LITERAL) ; } 

{ENTER (Z) ; return ( TEXT JTOKEN) ; } 
{NULL; } 

{NULL; } --ignore spaces and tabs 
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D. QUERY.Y 

..★★★Pile : query. y 

-- ★★★ Author : Dogan Ozdemir 

-- *** Date : September 1992 

*■*★★■*★★★★■*★★★★★★★★★★★★★★★★■*■*★*■■*■*■■*■*★*★★★★★★★★★★★★■*★★*■*■*■■*★★★■*■*■*■**★★★★■* 

%token ' ( 1 ' ) ' ' [ ' ' ] ' ' : ' ' , * ' I ' 

%token ARROW 

%token TRUE FALSE 

% token ADAPTOR EN AXIOMS_TOKEN 

% token BY_ALL_TOKEN REQ_BY_TOKEN BY_SOME_TOKEN 

%token CALL_PERIOD_TOKEN CONTROL_TOKEN 

%token CONSTRAINTS_TOKEN 

% token DESCR I PTION_TOKEN DATA_TOKEN 

%token END_TOKEN EDGE_TOKEN EXCEPTION_TOKEN 

%token EXCEPT I ONS_TOKEN EXECUTION_TOKEN 

%token FINISH_TOKEN 

%token GENER I C_TOKEN GRAPHJTOKEN 

%token HOURS_TOKEN 

%token IF_TOKEN IMP LEMENTAT I ON_TOKEN 

%token INPUT_TOKEN INITIALLY_TOKEN 

%token KEYWORDS_TOKEN 

% token MAX IMUM_TOKEN MINIMUM_TOKEN 

%token MICROSEC_TOKEN MIN_TOKEN MS_TOKEN 

%token MOD_TOKEN NOT_TOKEN 

%token OPERATOR_TOKEN OR_TOKEN 

%token OUT PUT_TOKEN 

%token PERIOD_TOKEN 

% token RESET_TOKEN RES PONS E_TOKEN 

%token SPECIFICATION_TOKEN SEC_TOKEN 

% token S TART_TOKEN STATES_TOKEN STOP_TOKEN 

%token STREAM_TOKEN 

%token TIME_TOKEN TIMER_TOKEN 

%token TYPE_TOKEN TRIGGERED_TOKEN 

% token VERTEX_TOKEN 

%token WITHIN_TOKEN 

%token TEXT_TOKEN 

%token IDENTIFIER 

%token STRING_LITERAL 

%token INTEGER_LITERAL 

%token REAL_L I TERAL 

--operator precedences 

%lef t AND_TOKEN OR_TOKEN XOR_TOKEN LOGICAL_OPERATOR 

%lef t '<' '>' '=' GREATER_THAN_OR_EQUAL LESS_THAN_OR_EQUAL INEQUALITY 

RELAT I0NAL_0 PERATOR 

%left ' + ' B INARY_ADD ING_0 PERATOR 

%left UNARY_ADDING_OPERATOR 

%left 1 *• '/' MOD_TOKEN REM_TOKEN MULTI PLY ING_OPERATOR 

%left EXP_TOKEN ABS_TOKEN NOT_TOKEN HIGHEST_PRECEDENCE_OPERATOR 
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%start start_symbol 



{ 

subtype yystype is integer; 

} 

%% 

start_symbol : 

psdl 

psdl : 

psdl 

component 

I 

component : 

data_type 

I 

operator 

data_type : 

TYPE_TOKEN 

{ 

query_is_adt :=True; 

} 

IDENTIFIER 

{ 

null ; 

} 

type_spec type_impl 

type_spec : 

S P EC I F I CAT I ON_TOKEN opt ional_gener ic_param 
opt iona l__type_dec 1 

op_spec_list functionality END_TOKEN 

opt iona l_generic_param: 

GENER I C_TOKEN 

{ 

query_is_generic := True; 
gen_par : = True ; 

} 

1 i s t _o f _ty pe_de c 1 

I 

opt iona l_type_decl : 

1 i s t_o f _ty pe_dec 1 

I 

/ 

op_spec_list : 
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op_spec_list 

0 PERATOR_TOKEN 
IDENTIFIER 

{ 

tmp_op_name ( 1 . . length) : =the_id_token ( 1 . . length) ; 
len_nane : =length; 

) 

opera tor_spec 
{ 

if query_is_adt then 

query_aux_pkg . Put_adt_op ( tmp_op_name , len_name 
has_inputs , has_outputs , query_adt_op_ptr ) 
has_inputs:= False; 
has_outputs : = False; 
in_par : =False ; 
out_par : = F a 1 s e ; 
end if; 

} 

1 


operator : 


/ 

OP ERATO R_TO KEN 
{ 

query_is_operator := True; 

} 

IDENTIFIER 

{ 

null; 

} 

operator_spec operator_impl 
! 


operator_spec : 


SPECIF ICATION_TOKEN 

interface ^ 

funct ionality 

END_TOKEN 


interface : 


; S 

interface attribute reqmts_trace 
1 


attribute : 


GENERIC_TOKEN 

{ 

c[uery_is_generic : = True; 
gen_par := True; 

} 

1 i s t_o f__type__.de c 1 
1 

INPUT_TOKEN 

{ 
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query_has_in_parain := True; 
has_inputs := True; 
in_par := True; 
gen_par := False; 

} 

1 i s t_of _type_dec 1 

I 

OUT PUT_TOKEN 

{ 

query_has_out_param : = True; 
has_outputs := True; 
in_par : = False; 
out_par := True; 
gen_par := False; 

} 

1 i s t_o f _type_dec 1 

I 

STATES_TOKEN 

list_of_type_decl 

INITIALLY_TOKEN 

in it ial_express ion_list 

I 

EXC E PT I ONS_TOKEN 

id_list 

I 

MAX IMUM_TOKEN EXECUT I ON_TOKEN TIME_TOKEN time 

1 i s t_o f _type_dec 1 : 

1 ist_of_type_decl 1 , ' type_decl 

I 

type_decl 



type_decl : 

id_list 

(' 

if gen_par then 

query_aux_pkg . Put_gen_parameter ( the_id_token # 
" " , length, 1 , query_gen_par_ptr ) 

end if; 

if in_par then 
if out__par then 
null ; 

else 

query _aux_pkg . Put_in_parameter ( the_id_token , 

length, query_in_par_ptr ) 

end if; 
end i f ; 

if out_par then 

query _aux_pkg . Put_out_parameter ( the_id_token, 

length, query_out_par_ptr ) 
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type_name : 


end i f ; 

} 

i . * 

type_name 

( 

if in_par then 
if out_par then 
null; 
else 

query _aux_pkg . Put_in_parameter_val ( the_id_token , 

length, query_in_par_val_ptr ) 

end i f ; 
end if; 

if out_par then 

query_aux_pkg . Put_out_parameter_val ( the_id_token, 

length, query_out_par_val_ptr ) 

end if; 

} 

/ 

IDENTIFIER 
' [ ' 

1 i s t _o f _type_dec 1 
1 ] ' 


id_list : 


1 

IDENTIFIER 

id_list 

i i 

/ 

IDENTIFIER 

1 

IDENTIFIER 


reqmts_trace : 


REQ_BY_TOKEN id_list 
1 


functionality : 


keywords informal_desc formal_desc 

f 


keywords : 


KEYWORDS_TOKEN 

( 

out_par := False; 

gen_par := False; --in case no in/out parameters 

} 

id_list 

1 

/ 
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inf ormal_desc : 



DESCRIPTION_TOKEN TEXT_TOKEN 



formal_desc : 

AX I OMS_TOKEN TEXT_TOKEN 



type_impl : 

IMPLEMENT ATI ON_TOKEN ADA_TOKEN IDENTIFIER 

{ 

queryname . name ( 1 . . length) : =the_id_token ( 1 . . length) ; 
query name . len : = length; 

} 

END_TOKEN 

I 

IMPLEMENTATION_TOKEN type_name op_impl_list END_TOKEN 
/ 

op_impl_list : 

op_impl_list OPERATOR_TOKEN IDENTIFIER operator_impl 

I 

operator_impl : 

IMP LEMENT AT I ON_TOKEN ADA_TOKEN IDENTIFIER 

{ 

queryname . name ( 1 . . length) : =the_id_token ( 1 . . length) ; 
queryname . len : =length; 

} 

END_TOKEN 

I 

IMPLEMENT AT I ON_TOKEN psdl_impl END_TOKEN 
i 

psdl_impl : 

data_f low_diagram streams timers control^. constraints 

informal_desc 

/ 

data_f low_diagram : 

GRAPH_TOKEN vertex_list edge_list 

vertex_list : 

vertex_list VERTEX_TOKEN op_id opt ional_t ime 



edge_list : 

edge_lis t EDGE_TOKEN IDENTIFIER 
optional_t ime op_id ARROW op_id 



op_id : 



IDENTIFIER opt_arg 
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opt_arg : 



' ( ' opt ional_id_l ist 

' I ' opt ional_id_l ist ' ) ' 

I 

opt ional_id_list : 

id_list 



opt ional_t ime : 



time 



streams : 

DATA_TOKEN STREAM_TOKEN 1 i st_of _type_decl 



timers : 

TIMER_TOKEN id_list 



control_constraints : 

CONTROL_TOKEN CONSTRAINTS_TOKEN constraints 

constraints : 

constraints OPERATOR JTOKEN IDENTIFIER 
opt_trigger opt__period opt_f inish_within 
opt_mcp opt_mrt constraint_opt ions 
I 

0 PERATOR_TOKEN IDENTIFIER 
opt_trigger opt_period opt_f inish_within 
opt_mcp opt_mrt 
i 

constraint_opt ions : 

cons traint_opt ions OUTPUT_TOKEN id_list IF_TOKEN 
expression reqmts_trace 
I 

const ra in t_opt ions EXCEPT I ON_TOKEN IDENTIFIER 
opt_if_predicate reqmts_trace 
I 

const ra in t_opt ions t imer_op IDENTIFIER 
opt_if_predicate reqmts_trace 
I 

opt_trigger : 

TRIGGERED_TOKEN trigger opt_if_predicate reqmts_trace 



trigger : 

BY_ALL_TOKEN id_list 
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BY_SOME_TOKEN id_list 



opt_per iod : 

PERIOD_TOKEN time reqmts_trace 



opt_f ini sh_wi thin : 

FINIS H_TOKEN WITHIN_TOKEN time reqmts_trace 
I 
/ 

opt_mcp : 

MINIMUM_TOKEN C ALL_PER I OD_TOKEN time reqmts_trace 
I 

opt_mrt : 

max_resp_t ime time reqmts_trace 



max_resp_t ime : 

MAXIMUM_TOKEN RES PONSE_TOKEN TIMEJTOKEN 
/ 

t imer_op : 

RESETJTOKEN 

I 

START_TOKEN 

I 

STO P_TOKEN 
/ 

opt_if_predicate : 

IF_TOKEN expression 

I 

/ 

init ial_express ion_l is t : 

init ial_expression_list ' , ' init ial_express ion 

I 

init ial_express ion 

initial_expression : 

TRUE 

I 

FALSE 

I 

INTEGER_LITERAL 

I 

REAL_LITERAL 

I 

S TR I NG_L I TERAL 

I 

IDENTIFIER 

I 
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type_name 1 . ' IDENTIFIER 
I 

type_name ' . 1 IDENTIFIER ' ( ' ini t ial_express ion_l is t ' ) 

I 

' ( 1 ini tial_express ion_list ' ) ' 

I 

initial_express ion log_op init ial_expression %prec 
logical_operator 
I 

init ial_express ion rel_op ini t ial_express ion %prec 
relational_operator 
I 

init ial_expression %prec unary_adding_operator 

I 

' +' init ial_express ion %prec unary _adding_operator 

I 

init ial_expression bin_add_op init ial_express ion %prec 
mul t iplying_operator 
I 

init ial_expression bin_mul_op init ial_express ion %prec 
mult iplying_opera tor 
I 

init ial_expression EXP_TOKEN init ial_express ion %prec 
highest_precedence_operator 
I 

NOT_TOKEN ini tial_express ion %prec 
highest_precedence_operator 
I 

ABS_TOKEN ini t ial_expres s ion %prec 
highest_precedence_operator 
/ 

1°U_°P : 

AND_TOKEN 

I 

OR_TOKEN 

I 

XOR_TOKEN 

rel_op : 

'<* I '>' I ’=' I GREATER_THAN_OR_EQUAL 
I 

LESS_THAN_OR_EQUAL I INEQUALITY 

bin_add_op : 

' + ' I I 'Sc' 



bin_mul_op : 



* ' I ■ / ' | MOD_TOKEN I REM_TOKEN 



t ime : 



time_number MICROSEC_TOKEN 
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time_n umber MS_TOKEN 
I 

t ime_number SEC_TOKEN 
I 

time_number MIN_TOKEN 
I 

t ime_number HOURS_TOKEN 

t ime_number : 

INTEGER_LITERAL 



expression_list : 

expression_list ' , 1 expression 

I 

expression 



expression : 

TRUE | FALSE | INTEGER_LITERAL I time I REAL_L ITERAL 
I STR I NG_L ITERAL I IDENTIFIER 
I type_name ' . ' IDENTIFIER 

I type_name ' . ' IDENTIFIER ' ( 1 express ion_list ' ) ' 

I ' ( ' express ion_list 1 ) 1 

I expression log_op expression %prec logical_operator 
I expression rel_op expression %prec relat ional_operator 
I expression %prec unary _adding_operator 

I '+' expression %prec unary_adding_operator 
I expression bin_add_op expression %prec 
unary_adding_operator 

I expression bin_mul_op expression %prec 
mult iply ing_operator 

I expression EXP_TOKEN expression %prec 
highest__precedence_operator 

I NOT_TOKEN expression %prec highest_precedence_operator 
I ABSJTOKEN expression %prec highest_precedence_operator 



%% 



with Text_io, query_tokens , query_goto, query_shi f t_reduce , query_lex, 
query_aux_pkg ; 

use Text_io, query_tokens , query _goto, query_shi f t_reduce , query_lex, 
query _aux_pkg ; 



package queryparser is 

procedure Yyparse; 

echo : boolean := false; 

nuraber_of_errors ; Natural := 0; 
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in_par 

out_par 

gen_par 

has_inputs 

has_outputs 

tmp_op_name 

len_name 



Boolean : =False 
Boolean : =False 
Boolean : =False 
Boolean : =False 
Boolean : =False 
String ( 1 . . 80 ) ; 
Integer : =0 ; 



end queryparser; 

package body queryparser is 

procedure Yyerror(s : in string := "syntax error") is 
begin 

number_of_errors := number_of_errors + 1; 
put ("*** "); 
put_line ( s ) ; 
end Yyerror; 

if #%procedure_parse 

end queryparser; 
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E. COMPONENT AUX PKG 



1. COMPONENT AUX S.A 

File : component_aux_s . a 

-- *** Author : Dogan Ozdemir 

-- *** Date : September 1992 

_ _ ★★★★★*★**•***★*★*★***★*★★★*****★★★★*★★★★★★*■★★★★★*•*■*■■*■★★★★★ 



with Text_Io ; 
use Text_Io; 



package component_aux_pkg is 



the_id_token 

length 

has_in_param 

has_out_param 

is_operator 

is_adt 

is__generic 



String ( 1 . . 80 ) ; 
Integer : =1 ; 
Boolean := False; 
Boolean : = False; 
Boolean : = False; 
Boolean := False; 
Boolean := False; 



Global list constructors 

-- These variables and structures will hold the necessary info 
-- to construct the output file(s) 



type with_name is 
record 

name : String ( 1 .. 80 ) ; 
len : Integer :=0; 
end record; 



type in_parameter_list ; 

type in_parameter_ptr is access in_parameter_list ; 
type in_parameter_list is 
record 

name : String ( 1 .. 80 ) ; 
len : Integer :=0; 
link : in_parameter_ptr ; 
end record; 

type out_parameter_list ; 

type out_parameter_ptr is access out_parameter_list ; 
type out_parameter_list is 
record 

name : String ( 1 .. 80 ) ; 
len : Integer :=0; 
link : out_parameter_ptr ; 
end record; 
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type in_parameter_val__list ; 

type in_parameter__val_ptr is access in_parameter__val_l is t ; 

type in_parameter_val_list is 
record 

name : String ( 1 .. 80 ) ; 
len : Integer :=0; 
link : in_parameter_val_ptr ; 
end record; 

type out_parameter_val_list ; 

type out_parameter_val_ptr is access out_parameter_val_list ; 
type out_parameter_val_list is 
record 

name : String ( 1 .. 80 ) ; 
len : Integer :=0; 

link : out_parameter_val_ptr ; 
end record; 

type gen_parameter_list ; 

type gen_parameter_ptr is access gen_parameter_l ist ; 
type gen_parameter_list is 
record 

param: String ( 1 .. 80 ) ; 
val : String ( 1 .. 80 ) ; 
link : gen_parameter_ptr ; 
end record; 



type adt_operator_list ; 
type adt__operator_ptr is 
type adt_operator_list i 
record 
op_name 
has__inputs 
has_outputs 
op__in_par 
op_i n_pa r_va 1 
op_out_par : 
op_out_par_va 
link 

end record; 



access adt_operator_list ; 

: String (1. .80) ; 

: Boolean : =False ; 

: Boolean : =False; 

: in_parameter_ptr ; 
s, in_parameter__val_ptr ; 
out_parameter_ptr ; 

: out_parameter_val_ptr ; 
: adt_operator_ptr ; 



withname 

in_par_ptr 

out_par_ptr 

in_par__val_ptr 

out_par_va l_pt r 

gen_par_ptr 

adt_op_ptr 



with_name ; 
in__parameter_ptr ; 
out_parameter_ptr ; 
i n_parame t e r_va l_p t r ; 
out_parameter_val_ptr ; 
gen_parameter_ptr ; 
adt__operator_ptr ; 
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procedure Put_in_parameter ( Data : in String; 

Len : in Integer; 

List: in out in_parameter_ptr ) ; 

procedure Put_out_parameter ( Data : in String; 

Len : in Integer; 

List: in out out_parameter_ptr) ; 

procedure Put_in_parameter_val ( Data : in String; 

Len : in Integer; 

List: in out in_parameter — val_ptr ) ; 

procedure Put_out_parameter_val (Data : in String; 

Len : in Integer; 

List: in out out_parameter_val_ptr) ; 

procedure Put_gen parameter ( Parm : in String; 

Val : in String; 

P_Len : in Integer; 

V_Len : in Integer; 

List : in out gen_paraneter_ptr) ; 

procedure Put_adt_op ( name : in String; 

len : in Integer; 

inputs , outputs : in Boolean; 

List : in out adt_operator_ptr ) ; 

procedure strlen(s: in String; n: in out Integer); 
end component_aux_pkg ; 



2. COMPONENT_AUX_B.A 

-- *** File : component_aux_b.a 

__ Author : Dogan Ozdemir 

__ *★* Date : September 1992 



with Text_Io; 
use Text_Io; 



package body component_aux_pkg is 



procedure 



begin 



Put_in_parameter (Data: in String; 

Len : in Integer; 

List: in out in_parameter_ptr ) 



if List = null then 

List := new in_parameter_li st ; 
List . name ( 1 . . Len ) : =Data ( 1 . . Len) ; 



is 
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List . len : = Len ; 
List . link : =null ; 
else 



Put_in_parameter (Data, Len, List . link) ; 
end if; 

end Put_in_parameter ; 



procedure Put_out_parameter (Data : in String; 

Len : in Integer; 

List: in out out_parameter_ptr) is 

begin 

if List = null then 

List := new out_parameter_l ist ; 

List . name ( 1 . . Len) : =Data ( 1 . . Len) ; 

List . len : =Len ; 

List . link : =null ; 
else 

Put_out_parameter (Data, Len, List . link) ; 
end i f ; 

end Put — out_parameter ; 



procedure Put_in_parameter_val (Data : in String; 

Len : in Integer; 

List: in out in_parameter_val_ptr ) is 

begin 

if List = null then 

List := new in_parameter_val_l is t ; 

List. name(l. .Len) :=Data(l. .Len) ; 

List . len : =Len ; 

List . link : =null ; 

else 

Put_in_parameter__val (Data, Len, List . link) ; 

end i f ; 

end Put_in_parameter_val ; 



procedure Put_out_parameter_val ( Data : in String; 

Len : in Integer; 

List: in out out_parameter_val_ptr ) is 

begin 

if List = null then 

List := new out_parameter_val_l ist ; 

List . name ( 1 . . Len) : =Data ( 1 . . Len) ; 

List . len : =Len; 

List . link : =null ; 

else 
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Put_out_parameter_val ( Data , Len , List . link) ; 



end if; 

end Put_out_parameter_val ; 



procedure Put_gen_parameter ( Parra 

Val 

P_Len 

V_Len 

List 

begin 



in String; 
in String; 
in Integer; 
in Integer; 

in out gen_parameter_ptr ) is 



if List = null then 

List := new gen_parameter_l ist ; 

List . param { 1 . . P_Len) : =Parm ( 1 . . P_Len) ; 

List . val ( 1 . . V_Len ) : =Val ( 1 . . V_Len ) ; 

List . link : =null ; 

else 

Put_gen_parameter ( Parm, Val , P_Len, V_Len, List . link) ; 

end if; 

end Put_gen_parameter ; 



procedure Put_adt_op ( name: in String; 

len : in Integer; 

inputs , outputs : in Boolean; 

List: in out adt_operator_ptr ) is 

begin 

if List = null then 

List := new adt_operator_list ; 

List .op_name ( 1 . . len) : = name ( 1 . . len) ; 

List . has_inputs : = inputs ; 

List . has_outputs : =outputs ; 

List . op_in_par : = in_par_ptr; 

List .op_in_par_val : = in_par_val_ptr ; 

List ,op_out_par : =out_par_ptr ; 

List .op_out_par_val : =out_par_val_ptr ; 

List . link: =null ; 

else 

Put_adt_op (name, len, inputs, outputs, List . link) ; 

end if; 

in_par_ptr : =nul 1 ; 
in_par_val_ptr : =null ; 
out_par_ptr : =nul 1 ; 
out_par_val_ptr : =null ; 
end Put_adt_op; 
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procedure strlenfs: in String; n: in out Integer) is 

I : Integer : = 1; 

char rCharacter : = ' x ' ; 
endst r : Boolean : =False ; 



begin 

while endstr=False loop 
begin 

char : = s (I) ; 



I : =1+1 ; 



end ; 
end loop; 
n : = 1-1; 
end strlen; 



except ion 

when constraint_error => 



endstr : =True ; 



end component_aux_pkg ; 



F. COMPONENT COMPOSE PKG 



1. COMPONENT_COMPOSE_S.A 

__ ★ ★★ File : component_compose_s . a 

__ ★ ★★ Author : Dogan Ozdemir 

__ ★ ★★ Date : September 1992 



with text_io, component_aux_pkg ; 
use text_io, component_aux_pkg; 



package component_compose_pkg is 



inpar_ptr 

outpar_ptr 

inparv_ptr 

outparv_ptr 

genpar_ptr 

adtop_ptr 

opin_par 

opin_parv 

opout_par 

opout_parv 

outf ile 

genf ile 

actual_val 

gen_found 



in_parameter_ptr; 
out_parameter__ptr ; 
in_parameter_val_ptr ; 
out_parameter_val_ptr ; 
gen_parameter_ptr ; 
adt_operator_ptr ; 
in_parameter_ptr; 
i n_pa r ame t e r _va l_p t r ; 
out_parameter_ptr; 
ou t_pa r ame t e r_va l_p t r ; 
f ile_type ; 
f ile_type ; 
string ( 1 . .80) / 

Boolean : =False ; 



procedure non_generic_operator ; 
procedure gener ic_operator ; 
procedure non_generic_adt ; 
procedure generic_adt; 



end component_compose_pkg ; 



2 . COMPONENT j:OMPOSE_B.A 

--★★★File : component_compose_b . a 

-- ★★★ Author : Dogan Ozdemir 

__ ★★★ Date : September 1992 

★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★ 



with text_io, component_compose_pkg ; 
use text_io, component_compose_pkg ; 

package body component_compose_pkg is 

procedure non_gener ic_operator is 
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begin 

create (outf ile , mode=>out_f i le , name=> "out file" ) ; 
create (genf ile, mode=>out_f ile, name =>" genf ile " ) ; 
put (genf ile, " " ) ; 

put ( out f ile , "with "); 

put (outf ile, withname .name ( 1 . .withname . len) ) ; 
put (outf ile, " ; " ) ; 
new_line (out f ile, 2 ) ; 
put (outf ile, "package " ) ; 

put (outf ile, withname . name ( 1 . . (withname . len-3 ) ) ) ; 

put (outf ile, "_pkg is" ) ; 

new_line (outf ile, 2 ) ; 

put (outf ile, " procedure "); 

put (out file, withname . name ( 1 . . (withname . len-3 ) ) ) ; 

if has_in_param then 
put (out f ile , " ("); 

inpar_ptr : = in__par_ptr ; 
inparv_ptr:= in_par_val_ptr ; 
while inpar_ptr /= null loop 
Put (outf ile, inpar_ptr . name) ; 
inpar_ptr : =inpar_ptr . link; 

Put (outf ile, M : in " ) ; 

Put (outf ile, inparv_ptr .name ( 1 . . inparv_ptr . len) ) 
inparv_ptr:= inparv_ptr . link; 
if inpar_ptr /= null then 
Put (outf ile, " ; " ) ; 

new_line (outf ile) ; set_col (outf ile, 13 ) ; 

else 

if has_out_param then 
Put (out file, " ; " ) ; 
new_line (outf ile) ; 
set_col (out f i le , 13 ) ; 
exit ; 

else 

Put (outf ile, " ) " ) ; 
new_line (outf ile) ; 
end if; 
end if; 
end loop; 
end if; 

if has_out_param then 
if has_in_param then 
nu 1 1 ; 
else 

put (outf ile, M ( " ) ; 
end i f ; 

outpar_ptr:= out_par_ptr; 
outparv_ptr : = out_par_val_ptr ; 
while outpar_ptr /= null loop 
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Put (out f ile , outpar_ptr . name ( 1 . . outpar_ptr . len) ) ; 
outpar_ptr:= outpar_ptr . link ; 

Put (outf ile, 11 : out "); 

Put (out file, outparv_ptr . name ( 1 . . outparv_pt r . len) ) ; 
outparv_ptr : =outparv_ptr . link; 
if outpar_ptr /= null then 
Put (outf ile, " ; 11 ) ; 

new_line (outf ile) ; set_col (outf ile, 13 ) ; 
else 

Put (outf ile, " ) " ) ; 

new_line (outf ile) ; 
end if; 
end loop; 
end if; 

new_line (outf ile) ; 
put (out file, " renames "); 
put ( out f ile , withname . name) ; 
put (outf ile, " . " ) ; 

put ( out f ile , withname . name ( 1 . . (withname . len-3 ) ) ) ; 
put (outf ile, " ; " ) ; 
new_line (out file, 2 ) ; 
put ( out file, " end "); 

put (outf ile, withname . name ( 1 . . (withname .len-3 ) ) ) ; 
put (outf ile, "_pkg; " ) ; 
close (outf ile) ; 
end non_gener ic_operator ; 



procedure gener ic_operator is 
begin 

create (outf ile, mode=>out_f ile, name=>"outf ile" ) ; 
create (gen file , mode =>out_f ile, name =>" genf ile " ) ; 
put (genf ile, "generic" ) ; 
put (outf ile, "with " ) ; 

put (outf ile, withname . name ( 1 . .withname . len) ) ; 
put (out file, " ; " ) ; 
new_line (outf ile, 2) ; 
put (out file, "package "); 

put (outf ile , withname . name ( 1 . . (withname .len-3 ) ) ) ; 
put (outf ile, "_pkg is " ) ; 
new_line (out f ile, 2 ) ; 

--At this point we need actual values of generic units for 
instantiation . 

--This part of code is commented out for reference. 

--genpar_ptr : -gen_par_pt r ; 

--while genpar_ptr /= null loop 

--put ("Enter actual parameter for generic <" ); 

--put (genpar_ptr . name ( 1 . .genpar_ptr . len) ) ; 



102 



--put ("> : "); 

--get_line (actual_val , length) ; 

--component_aux_pkg . Put_gen_parameter_val 

(actual^ val, length, gen_par_val_ptr ) ; 

--new_ line ; 

- -genpar_ptr : =genpar_ptr . link; 

--end loop; 

--now continue with instantiation 
put (out file, " package tmp_ M ); 

put (out file, withname . name ( 1 . . (withname . len-3 ) ) ) ; 
put (outf ile, "_pkg is new "); 

put (out file, withname .name ( 1 . .withname . len) ) ; 
put (outf ile, " ( " ) ; 

genpar_ptr : =gen_par_ptr ; 
while genpar_ptr /= null loop 
Put (outf ile, genpar_ptr . val) ; 
if genpar^ptr . link /= null then 
Put (outf ile, ", “ ) ; 

end i f ; 

genpar _ptr : =genpar_ptr . 1 ink ; 
end loop; 

put (outf ile, " ) ; " ) ; 
new_line (outf ile, 2) ; 

--now rename 

put (outf ile, " procedure "); 

put (out file, withname . name ( 1 . . (withname . len-3 ) ) ) ; 

if has_in_param then 
put (out f ile , " ( " ) ; 

inpar _ptr:= in_par_ptr; 
inparv__ptr : = in_par_val_ptr ; 
while inpar_ptr /= null loop 

Put (out f i le , inpar_ptr . name ( 1 . . inpar _ptr . len ) ); 

Put (outf ile, M : in "); 
inpar_ptr : =inpar_ptr .link; 

genpar_ptr : =gen_par_ptr ; 
while genpar__ptr /= null loop 

if inparv_j?tr . name = genpar_ptr . param then 
Put (outf ile, genpar_ptr .val ) ; 
gen_f ound : =True ; 
exit ; 
end if; 

genpar_ptr : =genpar_ptr . 1 ink ; 
end loop; 

if gen_f ound=False then 

Put (outf ile, inparv_ptr .name ( 1 . . inparv _ptr . len) ) 
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end if; 

gen_found : =False ; 

inparv_ptr:= inparv_ptr . 1 ink ; 
if inpar_ptr /= null then 
Put (outf ile, “ ; " ) ; 
new_line (out file ) ; 
set_col (out f ile , 13); 

else 

if has_out_param then 
Put (outf ile, " ; " ) ; 
new_line (outf ile) ; 

set_col (outf ile, 13 ) ; 
exit ; 

else 

Put (outf ile, " ) " ) ; 

new_line (outf ile) ; 

end if; 
end if; 
end loop; 
end if; 

if has_out_param then 
if has_in_param then 
null; 

else 

put (outf ile, " ( " ) ; 
end i f ; 

outpar_ptr:= out_par_ptr; 
outparv_ptr : = out_par_val_ptr ; 
while outpar_ptr /= null loop 

Put (out f i le , outpar_ptr . name ( 1 . . outpar_ptr . len) ); 
outpar_ptr : = outpar_ptr . link; 

Put (outf ile, " : out "); 

genpar_ptr : =gen_par_ptr ; 
while genpar_ptr /= null loop 

if outparv_ptr . name = genpar_ptr . param then 
Put (out file , genpar_ptr . val ) ; 
gen_f ound : =True ; 
exit ; 
end if; 

genpar_ptr : =genpar_ptr . link; 
end loop; 

if gen_found=False then 

Put (out file , outparv_ptr . name ( 1 . . outparv_ptr .len) ) 
end if; 

gen_found: =False; 

outparv_ptr : =outparv_ptr . link; 
if outpar_ptr /= null then 
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Put (out file, " ; " ) ; 
new_line (out file) ; 
set_col (outf ile, 13 ) ; 
else 

Put (out file, " ) " ) ; 
new_line (outf ile) ; 
end if; 
end loop; 
end if; 

new_line (outf i le) ; 
put (outf ile, " renames tmp_" ) ; 

put (outf ile, withname . name ( 1 . . (withname . len-3 ) ) ) ; 
put (outf ile, "_pkg . M ) ; 

put (out file , withname . name ( 1 . . (withname . len-3 ) ) ) ; 
put (outf ile, " ; " ) ; 
new_line (outf ile, 2 ) ; 
put (out file ," end "); 

put ( out file , withname . name ( 1 . . (withname .len-3 ) ) ) ; 
put (outf ile, "_pkg; " ) ; 
close (out file) ; 
end gener ic_operator ; 



procedure non_gener ic_adt is 
begin 

create (outf ile, mode=>out_f ile, name=>" out file" ) ; 
create (genf ile, mode =>out_f ile , name=>" genf ile" ) ; 
put (genf ile, " " ) ; 

put (outf ile, "with "); 

put (outf ile, withname .name ( 1 . .withname . len) ) ; 
put (outf ile, " ; " ) ; 
new_line (out f i le , 2 ) ; 
put (outf ile, "package "); 

put (outf ile, withname .nam£ ( 1 . . (withname .len-3 ) ) ) ; 
put (outf ile, "_pkg is"); 
new_line (outf ile, 2 ) ; 

adtop_ptr : =adt_op_ptr ; 
while adtop_ptr /= null loop 
put (outf ile, " procedure " ) ; 

Put (out f ile , adtop_ptr . op^name ) ; 

if adtop_ptr . has_inputs then 
put (outf ile, " ( " ) ; 

opin_par : =adtop_ptr . op_in_par ; 
opin_parv: =adtop_ptr . op__in_par_val ; 
while opin_par /= null loop 
put (out f i le , opin_par . name) ; 
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opin^par : =opin_par . link; 

Put (out file, " : in "); 

--generic par check is to go here 
put (out file, opin_parv. name) ; 
opin_parv: =opin_parv. link; 
if opin_par /= null then 

Put (outf ile, " ; " ) ; 
new_line (outf ile) ; 
set_col (outf ile, 13 ) ; 

else 

if adtop_ptr . has_outputs then 
Put (outf ile, " ; " ) ; 
new_line (outf ile) ; 
set_col (outf ile, 13 ) ; 
exit ; 

else 

Put (outf ile, " ) " ) ; 

new_line (outf ile) ; 

end if; 
end if; 
end loop; 
end if; 



if adtop_ptr .has_outputs then 

if adtop_ptr . has_inputs then 
null; 

else 



end 



put (outf ile, " ( " ) ; 

if; 

opout_par : =adtop_ptr . op_out_par ; 
opout_parv : =adtop_pt r . op_out_par_ val ; 
while opout_par /= null loop 
Put (out file, opout_par .name) ; 
opout_par : =opout_par . link ; 

Put (outf ile, " : out "); 

put (outf ile, opout_parv. name) ; 
opout_parv : =opout_parv . 1 ink ; 
if opout_par /= null then 

Put (outf ile, - ; 11 ) ; 
new_line (out file) ; 
set_col (out f ile , 13 ) ; 



else 



Put (outf ile, " ) " ) ; 
new_line (outf ile) ; 



end if; 
end loop; 
end if; 

new_l ine ( out file) ; 
put (outf ile, " renames " ) ; 
put (outf ile, withname .name) ; 
put (outf ile, " . " ) ; 
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put (outf ile, adtop_ptr . op_name) ; 
put (out file, " ; " ) ; 
new_line (out f ile , 2 ) ; 
adtop_ptr : =adtop_ptr . link; 
end loop; 

put (out file, "end " ) ; 

put (out file , withname . name ( 1 . . (withname .len-3 ))) ; 
put (out file, "_pkg ; " ) ; 
close (out file) ; 

end non_generic_adt ; 



procedure generic_adt is 
begin 

create ( out f ile , mode=>out_f ile , name=>" out file" ) ; 
create (genf ile, mode=>out_f ile, name=>"genf ile" ) ; 
put (genf ile, "generic" ) ; 
put (outf ile, "with " ) ; 

put (out file, withname . name ( 1 . .withname . len) ) ; 
put (outf ile, " ; " ) ; 
new_line (out file, 2 ) ; 
put (outf ile, "package "); 

put (outf ile, withname . name ( 1 . . (withname . len-3 ) ) ) ; 
put (out file , "_pkg is " ) ; 
new_line (outf ile, 2 ) ; 

put (outf ile, " package tmp_" ) ; 

put (outf ile, withname . name { 1 . . (withname .len-3 ) ) ) ; 
put (outf ile, "_pkg is new "); 

put ( outf ile, withname . name ( 1 . .withname . len) ) ; 
put (outf ile, " ( " ) ; 

genpar_ptr : =gen_par_ptr ; 
while genpar_ptr /= null loop 
Put (outf ile, genpar_ptr . val) ; 
if genpar_ptr . link /= null then 
Put (outf ile, ", " ) ; 

end if; 

genpar_ptr : =genpar_ptr . 1 ink ; 
end loop; 

put (outf ile, " ) ; " ) ; 

new_line (outf ile, 2 ) ; 

--now rename 

adtop_ptr : -adt_op_ptr ; 
while adtop_ptr /= null loop 
put (outf ile, " procedure "); 
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Put (outf ile, adtop_ptr . op_name) ; 



if adtop_ptr . has_inputs then 
put (out file, " ( " ) ; 

opin_par : =adtop_ptr . op_in_par ; 
opin_parv: =adtop_ptr . op_in_par_val ; 
while opin_par /= null loop 
put (outf ile, opin_par .name) ; 
opin_par : =opin_par . 1 ink; 

Put (outf ile, " : in "); 

--generic par check is to go here for generic proc 
genpar_ptr : =gen_par_ptr ; 
while genpar_ptr /= null loop 

if opin_parv. name=genpar_ptr .param then 
Put (outf ile, genpar_ptr . val) ; 
gen_f ound : =True ; 

exit ; 

end if; 

genpar_ptr : =genpar_ptr . link ; 

end loop; 

if gen_f ound=False then 

put (outf ile, opin_parv. name) ; 
end if; 

gen_f ound : =False ; 

opin_parv: =opin_parv. link; 
if opin_par /= null then 

Put (outf ile, " ; M ) ; 
new_line (outf ile) ; 
set_col (outf ile, 13 ) ; 

else 

if adtop_ptr . has_outputs then 
Put (outf ile, " ; " ) ; 
new_line (out file) ; 
set_col (outf ile, 13 ) ; 
exit ; 

else 

Put (out file , " ) " ) ; 
new_line (outf ile) ; 
end if; 

end if; 
end loop; 
end if; 

if adtop_ptr . has_outputs then 

if adtop_ptr . has__inputs then 
nu 1 1 ; 

else 

put (outf ile, " ( " ) ; 
end if; 

opout_par : =adtop_ptr . op_out_par ; 
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opout_parv : =adtop_ptr . op_out_par_val ; 
while opout_par /= null loop 
Put ( out file, opout_par . name ) ; 
opout_par : =opout_par . link; 

Put (out file, " : out " ) ; 

--generic par check 
genpar_ptr : =gen_par_ptr ; 
while genpar_ptr /- null loop 
if opout_parv . name=genpar_ptr .param then 

Put (outf ile, genpar_ptr . val) ; 
gen_f ound : =True ; 
exit ; 

end if; 

genpar_ptr : =genpar_ptr . link; 

end loop; 

if gen_f ound=False then 

put (outf ile, opout_parv. name) ; 
end if; 

gen_f ound : =False ; 

opout_parv : =opout_parv .link; 
if opout_par /= null then 

Put (outf ile, " ; * ) ; 
new_line (outf ile) ; 
set^col (outf ile, 13 ) ; 

else 

Put (outf ile, " ) " ) ; 
new_line (outf ile ) ; 

end if; 
end loop; 
end if; 

new_line (outf ile) ; 

put (outf ile, " renames tmp_" ) ; 

put (out file , withname .name ( 1 . . (withname . len-3 ) ) ) 
put (outf ile, ''_pkg . " ) ; 
put (outf ile, adtop_ptr . op_name ) ; 
put (outf ile, " ; " ) ; 
new_line (outf ile, 2 ) ; 
adtop_ptr : =adtop_ptr . link; 
end loop; 

put (outf ile, "end " ) ; 

put (out file , withname . name ( 1 . . (withname . len-3 ))); 
put (outf ile, "_pkg ; " ) ; 
close (outf ile) ; 

end generic_adt; 

end component_compose_pkg; 
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G. COMPONENT PARSE.A 



-- *** File 
-- *** Author 
-- *** Date 



component_parse . a 
Dogan Ozdemir 
September 1992 






* *■ * 



★★★★★★★** 



with u_env, component_parser , psdl__lex_io, psdl_lex, text_io, 
component_aux_pkg , component_compose_pkg ; 
use u_env, component_parser, text_io, component__aux_pkg , 
component_compose_pkg ; 

procedure parse is 

last : integer :=0; 

begin 

if u_env.Argc = 2 then 
strlen ( Argv( 1) .S, last) ; 

psdl_lex_io . open_input (Argv( 1) .S (1 . . last) ) ; 
psdl__lex_io . create_output ; 

yyparse ; 

psdl_lex_io . close_input ; 
psdl_lex_io . close_output ; 

if is_generic and is_operator then 

component_compose__pkg . gener ic_operator ; 
elsif is_generic=False and is_operator then 
component_compose_pkg . non_gener ic_operator ; 
elsif is_generic and is_adt then 
gener ic_adt ; 

elsif is_generic=False and is_adt then 
non_generic_adt ; 
end if; 

> 

else 

put__line ( "Wrong number of arguments"); 
end if; 

end parse; 



no 



H. QUERY_AUX_PKG 



L QUERY AUX S.A 



: query_aux_s . a 
: Dogan Ozdemir 
: September 1992 

with Text_Io; 
use Text_Io; 



-- *** File 
__ ★★★ Author 
-- *** Date 
★**★*★★★*★★ 



package query_aux_pkg is 



the_id_token : 

length : 

query_has_in_param 
query _has_out_param 
query_is_operator 
query_is_adt 
query_is_gener ic 



String ( 1 . . 80 ) ; 
Integer : =1 ; 

: Boolean 
: Boolean 
: Boolean 
: Boolean 
: Boolean 



False ; 
Falser- 
False ; 
Falser- 
False ; 



-- Global list constructors 

-- These variables and structures will hold the necessary info 
-- to construct the output file(s) 



type query_name is 
record 

name : String ( 1 .. 80 ) ; 
len : Integer :=0; 
end record; 

type query_in_parameter_list ; 

type query_in_parameter_ptr is access 

query_in_parameter_list ; 

type query_in_parameter_l ist is 
record 

name : String ( 1 .. 80 ) ; 
len : Integer :=0; 
link : query_in_paramet er_ptr ; 
end record; 

type query_out_parameter_list ; 

type query_out_parameter_ptr is access 

<Tuery_out_parameter_list ; 

type query_out_parameter_list is 
record 

name : Str ing ( 1 . . 80 ) ; 



in 



len : Integer :=0; 
link : query _out_parameter_ptr ; 
end record; 



type query_in_parameter_val_list ; 

type query_in_parameter_val_ptr is access 

query_in_parameter_val_list ; 
type query_in_parameter_val_list is 
record 

name : String ( 1 .. 80 ) ; 
len : Integer :=0; 

link ; query_in__parameter_val_ptr ; 
end record; 



type query_out_parameter_val_list ; 

type query_out_parameter_val_ptr is access 

query_out_parameter_val_list ; 
type query_out_parameter_val_list is 
record 

name : String ( 1 .. 80 ) ; 
len : Integer :=0; 

link : query_out_parameter_val_jptr ; 
end record; 



type query _gen_parameter_l is t ; 

type query_gen_parameter_ptr is access 

query _gen_j?arameter_l is t ; 

type query _gen_parameter_l is t is 
record 

param: String ( 1 . . 80 ) ; 
val : String { 1 .. 80 ) ; 
link : query _gen_parameter_ptr ; 
end record; 



type query _adt_operator_list ; 

type query _adt_operator_ptr is access 

query _adt_operator_list ; 



type query _adt_operator_list is 



record 
op_name 
has_inputs 
has_outputs 
op_in_par 
op_ i n_pa r_va 1 
op_out_par : 
op_ou t_par_va 1 
link 

end record; 



String ( 1 . . 80 ) ; 

Boolean : =False ; 

Boolean : =False; 
query_in_parameter__ptr ; 
query_in_parameter_val__ptr ; 
qu e ry _ou t __pa r ame t e r _p t r ; 
query_out_parameter_val_ptr ; 
query _adt_operator_ptr ; 
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queryname 

qu e ry_ i n_pa r __p t r 

query _out_par_ptr 

query_in_par_val_ptr 

query_out_par_val_ptr 

query _gen_par_ptr 

query _adt_op_ptr 



query_name ; 

query_in_parameter_ptr ; 
query_out_parameter_ptr ; 
query_in_parameter_val_ptr ; 
query_out_parameter_val_ptr ; 
query_gen_parameter_ptr ; 
query_adt_operator_ptr ; 



procedure Put_in_parameter (Data : in String; 

Len : in Integer; 

List: in out query_in_paraineter_ptr ) 

procedure Put_out_parameter (Data : in String; 

Len : in Integer; 

List: in out query _out_parameter_ptr ) ; 

procedure Put_in_parameter_val (Data : in String; 

Len : in Integer; 

List: in out query_in_parameter_val_ptr ) 

procedure Put_out_paramet er_val (Data : in String; 

Len : in Integer; 

List: in out query _out_parameter_val_ptr ) ; 



procedure Put_gen_parameter ( Parm: in String; 

Val : in String; 

P_Len: in Integer; 

V_Len: in Integer; 

List: in out query_gen_parameter_ptr) ; 

procedure Put_adt_op (name : in String; 

len : in Integer; 

inputs , outputs : in Boolean; 

List : in out query _adt_operator_ptr ) ; 

procedure strlen(s: in String; n: in out Integer); 

end query_aux_pkg; 
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2. QUERYAUXB.A 



..★★★pile . query_aux_b . a 

__ ★★★ Author : Dogan Ozdemir 

-- *** Date : September 1992 



★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★ 



★★★★★★★★★★★ 






with Text_Io; 
use Text_Io; 



package body query_aux_pkg is 



procedure Put_in_paramet er (Data 

Len 

List 



in String; 
in Integer; 

in out query_in_parameter_ptr ) is 



begin 

if List = null then 

List := new query_in_parameter_list ; 
List . name ( 1 . . Len) : =Data ( 1 . . Len) ; 

List . len : =Len; 

List . link ; =null ; 
else 

Put_in_parameter (Data, Len, List . link) ; 
end if; 

end Put_in_parameter ; 



procedure Put_out_parameter ( Data : in String; 

Len : in Integer ; 

List: in out query_out_parameter_ptr ) is 



begin 

if List = null then 

List := new query_out_parameter_list ; 
List . name ( 1 . .Len) : =Data ( 1 . . Len) ; 

List . len : =Len ; 

List . link: =null ; 
else 

Put_out_parameter (Data, Len, List . link) ; 
end if; 

end Put_out_parameter ; 



procedure Put_in_parameter_val (Data : in String; 

Len : in Integer; 

List: in out query_in_parameter_val_ptr ) is 



begin 

if List = null then 
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List := new query_in_parameter_val_l ist ; 
List .name (1 . . Len) : =Data (1 . . Len) ; 

List . len : =Len ; 

List . 1 ink : =null ; 
else 

Put_in_parameter_val (Data, Len, List . link) ; 
end if; 

end Put_in_parameter_ val ; 



procedure Put_out_parameter_val (Data : in String; 

Len : in Integer; 

List: in out query_out_parameter_val_ptr) is 

begin 

if List = null then 

List := new query _out__parameter_val_l ist ; 

List . name ( 1 . . Len ) : =Data ( 1 . . Len) ; 

List . len : =Len ; 

List . link: =null ; 
else 

Put_out__parameter_val (Data, Len, List . link) ; 
end if; 

end Put_out_parameter_val ; 



procedure Put_gen_parameter ( Parm : 

Val : 
P_Len : 
V_Len : 
List : 



in String; 
in String; 
in Integer; 
in Integer; 

in out query_gen_parameter_ptr ) is 



begin 

if List = null then 

List := new query_gen_parameter_ list ; 

List .paramf 1 . . P_Len) : =Parm ( 1 . . P_Len) ; 

List, val (1. . V_Len ) : =Va>l ( 1 . .V_Len) ; 

List . link : =null ; 
else 

Put_gen__parameter (Parm, Val, P_Len, V_Len, List . link) 
end if; 

end Put__gen_parameter ; 



procedure Put_adt_op (name : in String; 

len : in Integer; 

inputs , outputs : in Boolean; 

List : in out query _adt — operator_ptr ) is 
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begin 

if List = null then 

List := new query_adt_operator_l ist ; 

List . op_name ( 1 . . len ) : = name ( 1 . . len ) ; 

List . has_inputs : ^inputs ; 

List . has_outputs : =outputs ; 

List . op_in_par : = query_in_par_ptr ; 

List . op_in_par__val : =• query_in_par_val_ptr ; 

List . op_out_par : = query _out_par_pt r ; 

List . op_out_par_val : =query_out_par_val_ptr ; 
List . link : =null ; 
else 

Put_adt_op (name, len, inputs , outputs , List . link) ; 
end if; 

query_in_par_ptr : =null ; 
query_in_par_val_ptr : =null ; 
query_out_par_ptr : =null ; 
query _out_par_val_ptr : =null ; 
end Put_adt_op; 



procedure strlen(s: in String; n: in out Integer) is 

I : Integer := 1; 

char : Character : = ' x ‘ ; 
endstr : Boolean := False ; 

begin 

while endstr=False loop 
begin 

char : =s ( I ) ; 

I s =1+1 ; 
exception 

when constraint_error => endstr : =True ; 

end ; 

end loop; i 

n : = I - 1 ; 
end strlen; 



end query_aux_pkg; 
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I. QUERYCOMPOSEPKG 

1. QUERY_COMPOSE_S.A 



-- *** File : query_compose__s . a 

-- *** Author : Dogan Ozdemir 

__ *** Date : September 1992 

★ ★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★■*■★*★*★★★★★★★★ 



with text_io, query_aux_pkg, component_aux_pkg ; 
use text_io , query _aux_pkg , component_aux_pkg ; 



package query_compose_pkg is 



inpar_ptr 

outpar_ptr 

inparv_ptr 

outparv_ptr 

genpar_ptr 

adtop_ptr 

r_adtop_ptr 

opin_par 

opin_parv 

opout_par 

opout_parv 

outf ile 

genf i le 

actual_val 

gen_f ound 



query_in_parameter_ptr ; 
query _out_parameter_pt r ; 
qu e ry _ i n_pa r ame t e r_va l_p t r ; 
query _out_parameter_val_ptr ; 
gen_parameter_ptr ; 
query_adt_operator_ptr ; 
adt_operator_ptr ; 
qu e r y _ i n_p a r ame t e r _p t r ; 
query_in_parameter_val_ptr ; 
query _out_parameter_ptr ; 
query_out_parameter_val_ptr ; 
f ile_type ; 
f ile_type ; 
string ( 1 . .80) ; 

Boolean : =False ; 



procedure non_generic_operator; 
procedure gener ic_operator ; 
procedure non_gener ic_adt ; 
procedure generic_adt; 



end query_compose_pkg; 



2. QUERYCOMPOSEB.A 

__ ★ File : query_compose_b . a 

-- *** Author : Dogan Ozdemir 

-- *** Date : September 1992 

*★*★*★***★***★★*★*★★**★***★★★*★★★★★★***★**★★***★**★★****•**•*■*■***★*★** 



with text_io, query_compose_pkg ; 
use text_ io, query_compose_pkg ; 

package body query_compose_pkg is 

procedure non_generic_operator is 
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begin 

create (out file, mode = >out_f ile, name = >” out file” ) ; 
create ( genf i le # mode=>out_f i le , name=>"genf ile " ) ; 
put (genf ile, " " ) ; 

put (outf ile , "with "); 

put (out file, withname . name ( 1 . .withname . len) ) ; 
put (outf ile, " ; " ) ; 
new__line (out file, 2 ) ; 
put (out file, "package "); 

put (out file, queryname . name ( 1 . .queryname .len) ) ; 

put (outf ile, "_pkg is" ) ; 

new_line (outf ile, 2 ) ; 

put (out f ile , " procedure "); 

put (out file , queryname . name ( 1 . . queryname . len) ) ; 

if query_has_in_param then 
put (outf ile, " ( " ) ; 

inpar_ptr:= query_in_par_ptr; 
inparv_ptr:= query_in_par_val_ptr ; 
while inpar_ptr /= null loop 
Put (outf ile, inpar_ptr . name) ; 
inpar_ptr : =inpar_ptr . link; 

Put (outf ile, ” : in "); 

Put (outf ile, inparv_ptr . name ( 1 . . inparv_ptr . len) ) ; 
inparv_ptr:= inparv_ptr . link ; 
if inpar_ptr /= null then 
Put (outf ile, " ; “ ) ; 

new_line (out file) ; set_col (out file, 13 ) ; 

else 

if query _has_out_param then 
Put (outf ile, " ; " ) ; 

new_line (outf ile) ; set_col (outf ile, 13 ) 
exi t ; 

else 

Put (outf ile, " ) " ) ; 

new_line (out file) ; 

end if; 
end if; 
end loop; 
end if; 

if query_has_out_param then 
if query _has_in_param then 
null; 

else 

put (outf ile, " ( " ) ; 
end if; 

outpar_ptr:= query _out_par_pt r ; 
outparv_ptr : = query_out_par — val_ptr ; 
while outpar_ptr /= null loop 

Put (outf ile, outpar_ptr . name ( 1 . .outpar_ptr . len) ) ; 
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outpar__ptr : = outpar_ptr . 1 ink ; 

Put (out file, " : out "); 

Put (out f ile, outparv_ptr . name ( 1 . . outparv_ptr . len) ) ; 
outparv_ptr : =outparv_ptr . link; 
if outpar_ptr /= null then 
Put ( out file, " ; " ) ; 

new_line (out file) ; set_col (out file, 13 ) ; 

else 

Put (out file, " ) " ) ; 

new_line (outf ile) ; 
end if; 
end loop; 
end if; 

new_line (out file) ; 
put (outf ile, " renames " ) ; 
put (out file, withname . name) ; 
put (outf ile, " . " ) ; 

put (outf ile, withname . name ( 1 . . (withname . len-3 ) ) ) ; 
put (outf ile, " ; " ) ; 
new_line (outf ile , 2 ) ; 
put (out file ," end "); 

put (outf ile, queryname .name ( 1 . .queryname . len) ) ; 
put (outf ile, "_pkg; " ) ; 
close (outf ile) ; 
end non_generic_operator; 



procedure gener ic_operator is 
begin 

create (outf ile, mode=>out_f ile, name =>" out file" ) ; 
create (genf ile, mode=>out_f ile , name=>"genf ile" ) ; 
put(genfile, "generic") ; 
put (out file, "with " ) ; 

put (outf ile, withname .name ( 1 . .withname . len) ) ; 
put (out file, " ; " ) ; 
new_line (outf ile, 2 ) ; 
put (out file, "package " ) ; 

put (outf ile, queryname .name (1 . . queryname . len) ) ; 
put (outf ile, "_pkg is " ) ; 
new_line (outf ile, 2) ; 

--At this point we need actual values of generic units for 
instantiation. 

--now continue with instantiation 
put (outf ile, " package tmp_"); 

put (outf ile, queryname . name ( 1 . .queryname . len) ) ; 
put (outf ile, "_pkg is new "); 
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put (outfile, withname . name ( 1 . . withname . len ) ) ; 
put (outfile, " ( " ) ; 

genpar_ptr : =gen_par_ptr ; 
while genpar_ptr /= null loop 
Put (outfile, genpar_ptr .val ) ; 
if genpar_ptr . link /= null then 
Put (outfile, ", " ) ; 

end if; 

genpar_ptr : =genpar_ptr . link; 
end loop; 

put (outfile, " ) ; " ) ; 

new_line (outfile, 2 ) ; 

--now rename 

put (outfile, " procedure "); 

put (outfile, queryname . name ( 1 . . queryname . len) ) ; 

if query_has_in_param then 
put (outfile, " ( " ) ; 

inpar_ptr:= query_in_par_ptr ; 
inparv_ptr:= query_in_par_val_ptr ; 
while inpar_ptr /= null loop 

Put (outfile, inpar_ptr .name ( 1 . . inpar_ptr . len) ) ; 
Put (outfile, " : in " ) ; 
inpar_ptr : =inpar_ptr . link; 

genpar_ptr : =gen_par_pt r ; 
while genpar_ptr /= null loop 

if inparv_ptr . name = genpar_ptr . param then 
Put (outfile, genpar_ptr .val) ; 
gen_f ound : =True ; 
exit ; 

end if; 

genpar_ptr : =genpar_ptr . link; 
end loop ; 

if gen_f ound=False then 

Put (outfile , inparv_ptr . name ( 1 . . inparv_ptr . len ) ) 

end if; 

gen_f ound : =False ; 

inparv_ptr:= inparv_ptr . 1 ink ; 
if inpar_ptr /= null then 
Put (outfile, " ; " ) ; 
new_line (outfile) ; 
set_col (outfile, 13 ) ; 
else 

if query_has_out_param then 
Put (outfile, " ; " ) ; 
new_line (outf i le ) ; 
set_col (outfile, 13 ) ; 
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else 



exit ; 



Put (outf ile, " ) " ) ; 

new_line (out f i le) ; 

end if; 
end if; 
end loop; 
end i f ; 

if query_has_out_param then 
if query_has_in_param then 
null; 

else 

put (outf ile, " ( " ) ; 
end if; 

outpar_ptr:= query_out_par_ptr ; 
outparv_ptr : = query_out_par_val_ptr ; 
while outpar_ptr /= null loop 

Put (outf ile, outpar_ptr . name ( 1 . . outpar_ptr . len) ) ; 
outpar_ptr:= outpar_ptr . link ; 

Put (outf ile, " : out " ) ; 

genpar_ptr : =gen_par_ptr ; 

while genpar_ptr /= null loop 

if outparv_ptr . name = genpar_ptr . param then 
Put (outf ile, genpar_ptr . val) ; 
gen_f ound : =True ; 
exit ; 
end if; 

genpar_ptr : =genpar_ptr . link; 
end loop; 

if gen_f ound=False then 

Put (outf ile, outparv_ptr .name ( 1 . .outparv_ptr . len) ) 
end if; 

gen_found : =False ; 

outparv_ptr : =outparv_ptr . link;- 
if outpar_ptr /= null then 
Put (outf ile, ” ; M ) ; 
new_line (out file) ; 
set_col (outf ile, 13 ) ; 

else 

Put (outf ile, " ) " ) ; 
new_line (out file) ; 
end if; 
end loop; 
end if; 

new_line (out file) ; 
put (out file , " renames tmp_ H ) ; 

put (outf ile, queryname .name ( 1 . .queryname . len) ) ; 
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put ( out file, "_pkg . " ) ; 

put (out file , withname . name ( 1 . . (withname . len-3 ) ) ) ; 
put (out file , " ; " ) ; 
new_line (out f ile, 2 ) ; 
put ( out file, "end " ) ; 

put (out file, queryname . name ( 1 . .queryname . len) ) ; 
put (out file, "_pkg; " ) ; 
close (out file) ; 
end gener ic_operator ; 



procedure non_gener ic_adt is 
begin 

create (out file, mode=>out_f ile , name=> " out f i le " ) ; 
create (genf ile, mode =>out_f ile , name =>"genf ile" ) ; 
put (genf ile, " " ) ; 

put (out file, "with " ) ; 

put (out file, withname . name ( 1 . .withname .len) ) ; 
put (out file, " ; " ) ; 
new_line (outf ile, 2 ) ; 
put (outf ile, "package "); 

put (outf ile, queryname . name ( 1 . .queryname . len) ) ; 
put (out file, "_pkg is " ) ; 
new_line (out f ile, 2 ) ; 

adtop_ptr : =query_adt_op__ptr ; 
r_adtop_ptr : = adt_op _ptr ; 
while adtop_ptr /= null loop 
put (outf ile, " procedure "); 

Put ( outf ile, adtop_ptr . op_name ) ; 

if adtop_ptr . has_inputs then 
put (outf ile, " ( " ) ; 

opin_par : =adtop_ptr . op_in_par ; 
opin_parv : =adtop_ptr . op_in_^par_val ; 
while opin_par /= null loop 
put (outf ile, opin_j?ar .name) ; 
opin_par : =opin__par . link; 

Put (outf ile, " : in "); 

put (outf ile, opin_parv.name) ; 
opin _j?arv: =opin_parv . link; 
if opin_par /= null then 

Put (out file, " ; " ) ; 
new_line (out file) ; 
set_col (outf ile, 13 ) ; 

else 

if adtop_ptr .has_outputs then 
Put (out file, " ; " ) ; 
new_line (outf ile) ; 
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else 



set_col (outf ile, 13 ) ; 
exit ; 

Put (outf ile, " ) " ) ; 

new_line (out file) ; 

end if; 
end if; 
end loop; 
end if; 

if adtop_ptr . has_outputs then 
if adtop_ptr . has__inputs then 
null; 

else 

put (outf ile, " ( " ) ; 
end if; 

opout_par : =adtop_ptr . op_ out_par ; 
opout_parv : =adtop_ptr . op_out_par_val ; 
while opout_par /= null loop 
Put ( out file, opout_par . name ) ; 
opout_par : =opout_par .link; 

Put (out f ile , " : out " ) ; 

put (outf ile, opout_parv. name) ; 
opout^parv: =opout_parv. link; 
if opout_par /= null then 

Put (outf ile, " ; " ) ; 
new_line (out file) ; 
set_col (outf ile, 13 ) ; 

else 

Put (outf ile, " ) " ) ; 
new_line (out file) ; 

end i f ; 
end loop; 
end if; 

new_line (outf ile) ; 
put (out file , " renames "); 
put (outf ile, withname .name) ; 
put (outf ile , " . " ) ; 
put (outf ile, r_adtop_ptr ,op_name) ; 
put (outf ile, " ; M ) ; 
new_line (outf ile, 2) ; 
r_adtop_ptr : =r_adtop_ptr . link; 
adtop_ptr:= adtop_ptr . link ; 
end loop; 

put (outf ile, "end " ) ; 

put (outf ile, queryname .name (1 . .queryname. len) ) ; 
put (outf ile , "_pkg ; " ) ; 
close (out file) ; 
end non_generic_adt ; 
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procedure generic_adt is 
begin 

create (outf ile, mode=>out_f ile , name => "out f ile " ) ; 
create (genf ile, mode=>out_f ile, name=> "genf i le " ) ; 
put(genfile / "generic") ; 
put (out file, "with " ) ; 

put (out file, withname . name ( 1 . .withname . len) ) ; 
put (outf ile, " ; " ) ; 
new_line ( out f i le , 2 ) ; 
put (out file, "package " ) ; 

put (outf ile, queryname .name ( 1 . . queryname . len) ) ; 
put (outf ile, "_pkg is" ) ; 
new_line (outf ile, 2 ) ; 

put (out file, " package tmp_" ) ; 

put (outf ile, queryname .name ( 1 . .queryname . len) ) ; 
put (outf ile, "_pkg is new "); 

put (outf ile, withname . name ( 1 . .withname .len) ) ; 
put (outf ile, " ( " ) ; 

genpar_ptr : =gen_par_ptr ; 
while genpar_ptr /= null loop 
Put (outf ile, genpar_ptr .val) ; 
if genpar_ptr . 1 ink /= null then 
Put (outf ile, ", " ) ; 

end if; 

genpar_ptr : =genpar_ptr . link; 
end loop; 

put (out file, " ) ; " ) ; 
new_line (outf ile) ; 

--now rename 

adtop_ptr : =query_adt_op_pt r ; 
r_adtop_ptr : = adt_op_ptr; 
while adtop_ptr /= null loop 
put (out file, " procedure "); 

Put (out f ile , adtop_ptr . op_name ) ; 

if adtop_ptr . has_inputs then 
put (outf ile, " ( " ) ; 

opin_par : =adtop_ptr . op__in_par ; 
opin_parv: =adtop_ptr . op_in_par_val ; 
while opin_par /= null loop 
put (outf ile, opin_par .name) ; 
opin_par : =opin_par . link; 

Put (outf ile, “ : in "); 

--generic par check is to go here for generic proc 
genpar_ptr : =gen_par_ptr ; 
while genpar_ptr /= null loop 

if opin_parv. name=genpar_ptr .param then 
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Put (out file, genpar_ptr . val) 
gen_f ound : =True ; 
exit ; 
end if; 

genpar_ptr : =genpar_ptr . 1 ink ; 

end loop; 

if gen_found=False then 

put (outf ile, opin_parv . name ) ; 
end if; 

gen_found : =False ; 

opin_parv: =opin_parv . link; 
if opin_par /= null then 

Put (out file, " ; " ) ; 
new_line (out file) ; 
set_col (out file, 13 ) ; 

else 

if adtop_ptr . has_outputs then 
Put (outf ile, " ; - ) ; 
new_line (out f ile ) ; 
set_col (outf ile, 13 ) ; 
exit ; 

else 

Put (outf ile, " ) " ) ; 
new_line (out f ile ) ; 

end if; 
end if; 
end loop; 
end if; 

if adtop_ptr . has_outputs then 
if adtop_ptr . has_inputs then 
nu 1 1 ; 

else 

put (outf ile, " ( M ) ; 
end if; 

opout_par : =adtop_ptr k ,op_out_par ; 

opout_parv : =adtop_pt r . op__out_par__val ; 
while opout_par /= null loop 
Put (out file , opout_par . name) ; 
opout_par : =opout_par . link; 

Put (outf ile, M : out " ) ; 

--generic par check 
genpar_ptr : =gen_par_ptr ; 
while genpar_ptr /= null loop 
if opout_parv. name=genpar_ptr . param then 
Put (outf ile, genpar_ptr .val ) 
gen_f ound : =True ; 
exit ; 

end if; 

genpar_ptr : =genpar_ptr . link; 
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end loop; 

if gen_f ound=False then 

put ( out file, opout_parv . name ) ; 
end if; 

gen_found : =False ; 

opout_parv: =opout_parv. link; 
if opout_par /= null then 

Put (out file, " ; " ) ; 
new_line (outf ile) ; 
set_col (out file, 13 ) ; 

else 

Put (outf ile, " ) " ) ; 

new_l ine ( out f i le ) ; 

end if; 
end loop ; 
end if; 

new_l ine (out file) ; 

put (outf ile, " renames tmp_'' ) ; 

put (outf ile, queryname . name ( 1 . .queryname . len) ) 
put (outf ile, "_pkg . " ) ; 
put (outf ile, r_adtop_ptr .op_name) ; 
put (out file, " ; M ) ; 
new_line (outf ile, 2 ) ; 
adtop_ptr ; =adtop_ptr . link; 
r_adtop_ptr : =r_adtop_ptr . link; 
end loop ; 

put (outf ile, "end "); 

put (out file , queryname . name ( 1 . . queryname . len ) ) ; 
put (outf ile, "_pkg; " ) ; 
close (outf ile) ; 

end generic_adt; 

end query_compose_pkg; 
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J. QUERYPARSE.A 



*** File 
*** Author 
*** Date 



: query _parse . a 
: Dogan Ozdemir 
: September 1992 






with u_env, queryparser, query_lex_io , query_lex, text_io # 
query_aux_pkg, query_compose_pkg ; 
with component_parser, psdl_lex_io, psdl_lex, 
component_aux_pkg ; 

use u_env, queryparser, text_io, query_aux_pkg , 
qu e r y _c omp o s e_p kg ; 

use component_parser , component_aux_pkg ; 
procedure main is 

lastl, last2 : integer :=0; 

begin 

if u_env.Argc = 3 then 

component_aux_pkg . strlen (Argv( 1) . S, lastl) ; 
component_aux_pkg . strlen ( Argv ( 2 ) . S , last2 ) ; 
psdl_lex_io . open_input (Argv ( 1 ) . S ( 1 . . lastl ) ) ; 
psdl_lex_io . create_output ; 

--starting parse retrived psdl (Argv(l)) 

component_parser . yyparse ; 
psdl_lex_io . close_input ; 
psdl_lex_io . close_output ; 

query_lex_io . open_input (Argv ( 2 ) . S ( 1 . . last 2 ) ) ; 
query_lex_io . create_output ; 

--starting parse query psdl (Argv (2)) 

queryparser .yyparse; 
query_lex_io . close_input ; 
query_lex_io . close_output ; 

if query_is_operator then 

if is_generic then 
query_compose_pkg . generic_operator ; 
elsif is_generic=False then 
query_compose_pkg . non_generic_operator ; 
end i f ; 
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elsif query_is_adt then 

if is_generic then 
query_compose_pkg . gener ic_adt ; 
elsif is_gener ic=False then 
query _compose_pkg . non_gener ic_adt ; 
end if; 

end i f ; 

else 

put_line ( "Wrong number of arguments") ; 
end if; 

end main; 
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APPENDIX D - SOURCE CODE FOR GUI 



A. SOFTBASE.A 

__ *★* TAE Plus Code Generator version V5 . 1 
-- *** File : softbase.a 

-- *** Generated : May 21 16:12:31 1992 
__ *** Revised by : Dogan Ozdemir 



sof tbase 



-- Main program BODY 



PURPOSE: 

This is the main program of an application generated by the TAE Plus 
Code Generator. 

REGENERATED : 

This file is generated only once. 

NOTES : 

To turn this into a real application, do the following: 

1. Each panel that has event generating parameters is encapsulated by 
a package. Each parameter that you have defined to be " event- 
generat ing " , has an event handler procedure in the appropriate panel's 
package body. The panel's package body is in a file, named by 
concatenating the string "pan_" with the panel name (followed by 
"_b.a" ). Each handler has a name that is a concatenation of the 
parameter name and the string "_Event" 

Add application-dependent logic to each event handler. 

(As generated by the Workbench, each event handler simply logs the 
occurrence of the event.) 



2. See the "TAE Plus Ada Programmer's Guide" for directions on how 
to compile and link this program. 



ADDITIONAL NOTES: 

In TAE Plus version 4.1, every TAE Ada application caused the screen 
to be cleared as part of the initialization of the tae_termio package. 
In TAE Plus version 5.0, the TAE Ada bindings have been changed so as 
not to clear the screen by default. Simply adding a call to 
TAE . Tae_Termio . T_Clear will produce the same results as 4.1. 



with TAE; 
with Text_IO;' 
with Global; 
with U_Env; 
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use Text_IO, Global ; 



-- PROGRAMMER NOTE: 



-- add one "with" for each resource file in this application 
with sof tbase_Support ; 



procedure softbase is 



Wpt_Event 



UNKNOWN_WPT_EVENT 

L 



Type_of_Wpt_Event 

User_Context_Ptr 



Panel_In_Resource_Fi le 



TAE . Tae_Wpt . Wpt_Eventptr ; 

Tae . Wpt_Event type ; 

TAE . Tae_Wpt . Event_Context_Pt r ; 
Boolean ; 

Exception ; 

Integer : =1 ; 



begin -- softbase 

-- permit upper/ lowercase file names 
TAE . Tae_Misc . F_Force_Lower (FALSE) ; 

TAE . Tae_Wpt . Wpt_Init ( " " , Global . Default_Display_Id) ; 

-- initialize resource file 
-- PROGRAMMER NOTE: 

-- For each resource file in this application, calls to the appronate 
-- Init ialize_All_Panels and Create_Init ial_Panels must be added. 

sof tbase_Support . Init ial ize_All_Panels ( " /n/gemini /work /ozdemir/ tae/ 
work/sof tbase . res " ) ; 

sof tbase_Support . Create_Init ial_Panels ; 

TAE . Tae_Wpt . Wpt_NewEvent (Wpt_Event ) ; 

--ADDED 

Global . Str len (U_Env. Argv ( 1 ) . S& " " , L) ; 

path ( 1 . . L) : =U_Env . Argv ( 1 ) .S; 

Global . Str len (U_Env. Argv ( 2 ) .S& M " , L) ; 
proto_pref ix ( 1 . . L) : =U_Env . Argv ( 2 ) . S? 

EVENT_LOO P : 

while not Global . Applicat ion_Done loop 
-- PROGRAMMER NOTE: 

-- use Global . Set_Appl icat ion_Done in "quit" event handler to exit loop 

-- Wait for the next event 

TAE.Tae_Wpt .Wpt_Next Event 
( Event => Wpt_Event, 
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Etype -> Type_of_Wpt_Event ) ; 
case Type_of_Wpt_Event is 

when TAE . Tae_Wpt . WPT_PARM_EVENT => 

-- Panel event has occurred. 

-- PROGRAMMER NOTE: 

-- Get the user context (which is stored in the panel object 
-- when Wpt_NewPanel is called) . 

TAE . Tae_Wpt . Wpt_Extract_Context 
( Event => Wpt_Event, 

User_Ptr => User_Context_Ptr ) ; 

-- Get the parameter name 

TAE.Tae_Wpt . Wpt_Extract_Parm 
( Event => Wpt_Event, 

Parm => User_Context_Ptr . Parm_Name ); 

-- Get target id 

TAE.Tae_Wpt . Wpt_Extract_Data 
( Event => Wpt_Event, 

Data => User_Context_Ptr . Datavm_Ptr ) ; 

-- Find Vm parm object 

TAE . Tae_Vm . Vm_Find 

( Vmid => User_Context_Ptr . Datavm_Ptr , 

Name => User_Context_Ptr . Parm_Name , 

Vout => User_Context_Ptr . Parm_Ptr ); 

-- Dispatch event to event handler 

softbase — Support . Dispatch_Panel 

( User_Context_Ptr => User_Context_Ptr , 

Panel_In_Resource_File => Panel_In_Resource_Fi le ) ; 

if (not Panel_In_Resource_File ) then 

-- PROGRAMMER NOTE: 

-- For applications with more than one resource file, 

-- add a call to Dispatch_Panel for each resource file. 

Text_IO . Put_Line ("Unexpected event from wpt i " ) ; 
raise TAE . Tae_Wpt . BAD_EVENT_ID ; 
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end if; 



when TAE . Tae_Wpt . WPT_FILE_EVENT = > 

Text_IO . Put_Line ("Mo EVENT_HANDLER for event from external 
source . " ) ; 

-- PROGRAMMER MOTE: 

-- Add code here to handle file events. 

-- Use Wpt_AddEvent and Wpt_RemoveEvent to register and remove 
-- event sources. 

-- Use Wpt_Extract_EventSource and Wpt_Extract_EventMask to get 
-- information about the event that occurred. 



when TAE . Tae_Wpt . WPT__WIMDOW_EVENT => 
null; 

-- PROGRAMMER MOTE: 

-- Add code here to handle window events. 

-- WPT_WINDOW_EVENT can be caused by windows which you directly 

create 

-- with X (not TAE panels) , or by user acknowledgement of a 
-- Wpt_PanelMessage (therefore no default put_line statement is 
-- generated here) . 

-- You MIGHT want to use Wpt_Ext ract_xEvent_Type here. 

-- DO MOT use Wpt_Extrac t_Parm_xEvent since this is not 
-- a WPT_PARM_EVEMT ; you may get a "storage error". 

when TAE . Tae_Wpt . WPT_TIMEOUT_EVEMT => 

Text_IO. Put_Line ("STUB: Event WPT_TIMEOUT_EVEMT" ) ; 

-- PROGRAMMER MOTE: 

-- Add code here to handle timeout events. 

-- Use Wpt_SetTimeOut to register timeout events. 



-- These are internal TAE events. The application should never see 

them . 

-- when TAE.Tae_Wpt . WPT_HELP_EVEMT => 

-- when TAE . Tae_Wpt . WPT_IMTERRUPT_EVENT => 

when others => 

raise UNKNOWN_WPT_ EVENT; 



132 



end case; 



end loop EVENT_LOOP; 

-- PROGRAMMER NOTE: 

-- Application has ended normally. Add application specific code to 
-- close down your application. 

exception 

when UNKNOWNS PT_EVENT => 

Text_IO.Put ("FATAL ERROR: Unknown Wpt_NextEvent Event Type: "); 

Text_IO.Put (TAE . Wpt_Eventtype ' image ( Type_of_Wpt_Event ) ) ; 

Text_IO . Put_Line ( “ ... Forced exit . " ) ; 

end softbase; 
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B. GLOBAL PACKAGE 



1. GLOBAL S.A 

-- **+ plus Code Generator version V5 . 1 

__ *** File : global_s.a 

-- *** Generated : May 21 16:12:31 1992 
__ *** Revised by : Dogan Ozdemir 

__ ★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★♦★★★★★★★★★★★★★★♦★★★★★★♦★★★★★•A-*** 



* Global -- Package SPEC 

★ 



with X_Windows; 

with Text_IO ; 

with TAE; 

with SYSTEM; 

use TAE, SYSTEM, Text_IO; 

package Global is 



PURPOSE: 



--I This package is automatically "with" ed in to each panel package body. 
--I You can insert global variables here. 



- - | REGENERATED : 

--I This file is generated only once. 



package Taefloat_IO is new Text_IO . Float_IO ( TAE . Tae float); 



Default_Display_Id : X_Windows .Display; 
--ADDED 



library 

lib_to_delete 

path 

proto_pref ix 
Query _psdl 
Directory 
kwquery_out f ile 
query _outf ile 
component 
directory_array 
directory_f ile_name 
lib_vec 
f ile_vec 
I subdirectory 



String (1. 


. .10) 


:= (others=>' 


' ) ; 


String (1, 


. .10) 


:= (others=>' 


1 ) ; 


String ( 1 . 


.80) : 


= ( others=> ' 


1 ) ; 


String ( 1 . 


.80) : 


= ( other s => ' 


1 ) ; 


String ( 1 . 


.80) : 


= (others=> ' 


1 ) ; 


String ( 1 . , 


.80) : 


= ( others=> 1 


' ) ; 


String ( 1 . 


.15) : 


= " kwquery_out file" 



String ( 1 . . 13 ) : ="query_outf ile" ; 
String ( 1 .. 80 ): = (others=>‘ '); 
String (1..27):= (others=>‘ ' ) ; 



String ( 1 . . 14 ) : = "directory^f ile " ; 
s_vector ( 1 . . 20 ) : = (others=> new STRING ( 1 .. 10 )) ; 
s.vector ( 1 . . 20 0 ) : = (others=> new STRING ( 1 .. 80 )) ; 
Boolean : =FALSE; 
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Upper_di rectory 
Component_add 
Component_update 
Query 

current_di rectory 

directory_f ile 

cur_dir_index 

1 ib_count 

num_of_comp 

com : 

parse 

integrate/ " ; 



: Boolean : =FALSE ; 

: Boolean : =FALSE; 

: Boolean : =FALSE; 

: Boolean : =FALSE; 

: array(1..20) of String ( 1 .. 80 ) ; 

: file_type; 

: integer :=1; 

: integer :=0; 

: integer :=1; 

constant String : = " $HOME/caps/src/sof tware_base/sb 
: constant St r ing : = " $H0ME/caps /src/ sof tware_base/ 



Application_Done 



Subprogram SPEC 



function Applicat ion_Done 
return Boolean; 

--I PURPOSE: 

This function returns true if a "quit" event handler has called 
-- I Set_Applicat ion_Done , otherwise it returns false. 



Set_Applicat ion_Done 



-- Subprogram SPEC 



procedure Set_Appl icat ion_Done ; 

— I PURPOSE: 

--I This procedure can be ^sed by an event handler, typically a "quit 
--I button, to signal the end of the application. 



--ADDED 



system_call 



Subprogram SPEC 



procedure system_call (command : STRING); 

--I PURPOSE: 

--I This procedure is used to make unix system calls from within the 
-- I program. 
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strlen -- Subprogram SPEC 



procedure strlen(s: in String; n: in out Integer); 

--I PURPOSE: 

-- t This procedure is used to get the length of strings. 



1 is t_di rectory 



-- Subprogram SPEC 



procedure list_directory ( f ile : in out file__type; 

filename : in out string; 
file__vec : in out s__vector; 

I :in out integer); 



--I PURPOSE: 

-- I This procedure is used to obtain the contents of unix directory 
-- I structures . 



list__components 



Subprogram SPEC 



procedure list__components ( f ile : in out file_type; 

file_name : in out string; 
file_vec : in out s_vector; 

I :in out integer); 

— I PURPOSE: 

-- I This procedure is used to read the component list from a text file and 
--I fill them into a s^vector structure to be displayed in a TAE panel. 



read__di rectory 



Subprogram SPEC 



procedure read__directory ( f ile : in out file_type; 

f ile__name : in out string; 
dir_name : in out string); 
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— I PURPOSE: 

-- | This procedure is used to read the name of the current directory and 
--| to get the path from a text file. 



errorstring 



Subprogram SPEC 



procedure errorstring ( file : in out 

f i le_name : in out 
err_str : in out 



f ile_type ; 
string ; 
string) ; 



-- I PURPOSE: 

-- I This procedure is used to read the error message given by the 
-- I software base program. 



parse_line 



-- Subprogram SPEC 



procedure parse_l ine ( s : in String); 

--I PURPOSE: 

--I This procedure is used to determine if the selected line is a 
--[ directory or a file and if it is a directory it gets the identity 
-- I of the directory. 

end Global; 
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2 . 



GLOBAL B.A 



__ * * * TAE Plus Code Generator version V5 . 1 
-- *** File : global_b.a 

-- *** Generated : May 21 16:12:31 1992 
-- *** Revised by : Dogan Ozdemir 

★ 

-- * Global -- Package BODY 

★ 

package body Global is 
--I REGENERATED: 

-- I This file is generated only once. 

Is_Application_Done : Boolean := FALSE; 



Appl icat ion_Done -- Subprogram BODY 



function Appl icat ion_Done return Boolean is 
begin 

return Is_Appl icat ion_Done ; 
end Appl icat ion_Done; 



Se t_Appl icat ion_Done 



-- Subprogram BODY 



procedure Set_Appl icat ion__Done is 



begin 

Is_Appl icat ion_Done := TRUE; 
end Set_Application_Done ; 
--ADDED 
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system_call 



-- Subprogram BODY 



procedure system_call ( command : STRING) is 

procedure system_c (command : ADDRESS) ; 
pragma INTERFACE (C, SYSTEM.C) ; 
pragma INTERFACE_NAME ( S Y STEM_C , ".system" ) ; 
TEMP : constant STRING := command&ASC I I . NUL ; 
ERROR : INTEGER; 



begin 

SYSTEM_C ( TEMP ' ADDRESS ) ; 
end system^ call; 



strlen 



-- Subprogram BODY 



procedure strlen(s: in String; n: in out Integer) is 

I : Integer : = 1; 

begin 

loop 

if s (I) = ' ' then 

exit ; 
end i f ; 

I : = I + 1 ; 
end loop; 
ns= 1-1 ; 
end strlen; 



1 is t_di rectory 



Subprogram BODY 



procedure list_directory ( f ile : in out file_type; 

file_name:in out string; 
file_vec : in out s.vector; 
I : in out integer) is 

len : integer :=1; 

begin 
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I : = 1 ; 

open ( f ile, mode=>in_f ile, name=>file_name) ; 
f i le_vec ( I ) . all ( 1 . . 2 ):=".. " ; 

for cl in 3.. 80 loop 

f i 1 e_vec (I).all(cl):=' 
end loop; 

while not end_of_file (file) loop 
I : = I + 1 ; 

Text_I0 . get_line (file, f ile_vec ( I ) .all , len) ; 
for clean in (len+l)..80 loop 
f ile_vec ( I ) .all (clean) : = 1 
end loop; 
end loop; 
close (file) ; 

exception 

when END_ERR0R => null; 
end list_directory ; 



1 ist_components 



procedure 1 ist_components ( f i le : in out file_type; 

f ile_name : in out string; 
file_vec : in out s_vector; 
I : in out integer) is 

len: integer :=1; 
begin 
I : = 1 ; 

open (file, raode=>in_f ile , name=>file_name) ; 

while not end_of_file (file) loop 

Text_I0 .get_line (file, f ile_vec ( I ) . all , len) ; 
for clean in (len+l)..80 loop 

f ile_vec (I) .all (clean) : = ' ' ; 

end loop ; 

I : = I + 1 ; 
end loop; 

I : = I - 1 ; 
close ( f ile ) ; 
end list_components ; 
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read_di rectory 



procedure read_directory ( f i le : in out file_type; 

file_name:in out string; 
dir_name : in out string) is 

len: integer :=1; 
begin 

open ( f i le, mode=>in_f ile, name=>f ile_name ) ; 

Text_IO .get_line {file, dir_name , len) ; 
close { file ) ; 
end read_directory ; 



errorstring 



procedure errorstring { file : in out file_type; 

f i le_name : in out string; 
err_str : in out string) is 

len: integer :=1; 
begin 

open {file, mode=>in_f i le , name=>f i le_name ) ; 
Text_IO . get_l ine {file, err_str , len) ; 
if len=0 then 

Text_IO .get_line (file, err_str , len) ; 
end i f ; 
close ( f ile ) ; 
except ion 

when END_ERROR => close(file); 
end errorstring; 



parse_l ine 



procedure parse_l ine ( s : in string) is 

char : character ; 

N : integer :=1; 

begin 
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str len ( s , N) ; 
if s (N) = ' / ' then 

Is_a_directory : =TRUE; 
end i f ; 
if N=2 then 

if s ( 1 . . 2 ) = " . . " then 
Upper_directory : =TRUE ; 
end if; 
end if; 

end parse. line; 



end Global; 



C. PANEL LIBRARY PACKAGE 



1. PAN_LIBRARY_S.A 

__ *** TAE Plus Code Generator version V5 . 1 
__ File : pan_library_s . a 

__ Generated : May 21 16:12:31 1992 

-- *** Revised by : Dogan Ozdemir 

*★★★****★★★*****★*★★★**★★**★*★*★★★★★**★**★★*★★★★**★★*★*■**★-*••*•**■■*■★*•*■■*• 

* Panel_library -- Package SPEC 

★ 



with TAE; 
with X_Windows; 

package Panel_l ibrary is 



PURPOSE: 

This package encapsulates the TAE Plus panel: library 

These subprograms enable panel initialization, creation, destruction, 
and event dispatching. For more advanced manipulation of the panel 
using the TAE package, the panel's Event_Context (Info) is provided. 
It includes the Target and View (available after initialization) 
and the Panel_Id (available after creation) . 



REGENERATED : 

The following Workbench operations will cause regeneration of this 
file : 

The panel's name is changed (not title) 

For panel: 
library 



Info : TAE . Tae_Wpt . Event_Context_Ptr ; -- panel information 



Init iali ze_Panel 



-- Subprogram SPEC 



procedure Initialize_Panel 

( Collect ion_Read -- TAE Collection read from 

: in TAE.Tae_Co.Collection_Ptr ); -- resource file 

--I PURPOSE: 

--I This procedure initializes the Info. Target and Info. View for this 
-- I panel 
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EXCEPTIONS : 

TAE . UNINITIALIZED_PTR is 
TAE . Tae_Co . NO_SUCH_MEMBER 
Collection Read 



raised if 
is raised 



Collect ion_Read not initialized 
if the panel is not in 



Create_Panel 



-- Subprogram SPEC 



procedure Create_Panel 
( Panel_State 

: in TAE . Tae_Wpt . Wpt_F lags 
:= TAE . Tae_Wpt . WPT_PREFERRED ; 

Relat ive_Window 

: in X_Windows .Window 

:= X_Windows . Null_Window ); 



-- Flags sent to Wpt_NewPane 1 . 



-- Panel origin is offset from 
-- this X Window. Null_Window 
-- uses the root window. 




PURPOSE: 

This procedure creates this panel object in the specified Panel_State 
and stores the panel Id in Inf o . Panel_Id . 



EXCEPTIONS : 

TAE . UNINITIAL IZED_PTR is raised if the panel is not initialized 
TAE.TAE_FAIL is raised if the panel could not be created 



Connect_Panel 



-- Subprogram SPEC 



procedure Connect_Panel 
( Panel_State 

: in TAE .Tae_Wpt .Wpt_F lags 
: = TAE . Tae_Wpt . WPT_PREFERRED ; 

Relat ive_Window 

: in X_Windows .Window 
:= X_Windows .Null_Window ); 



-- Panel origin is offset from 
-- this X Window. Null_Window 
-- uses the root window. 



PURPOSE: 

If this panel doesn't exist, this procedure creates this panel object 
in the specifiec Panel_State and stores the panel Id in 
Info . Panel_Id . 

If this panel does exist, it is set to the specified Panel_State. 
In this case, Relat ive_Window is ignored. 
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EXCEPTIONS : 

TAE . UNINITIALIZED_PTR is raised from Create_Panel if the panel is 
not initialized 

TAE . TAE_FAIL is raised from Create_Panel if the panel could not be 
created 

TAE . Tae_Wpt . BAD_STATE is raised if the panel exists and the 
Panel_State is an invalid state 



Destroy_Panel 



-- Subprogram SPEC 



procedure Destroy_Pane 1 ; 



PURPOSE: 



--I This procedure erases a panel from the screen and de-allocates the 
-- I associated panel object (not the target and view). 



EXCEPTIONS : 



--I TAE . Tae_Wpt . BAD_PANEL_ID is raised if Inf o . Panel_Id is an invalid 
--I id. 



NOTES : 



--I Inf o . Panel_Id is set to TAE . NULL_PANEL_ID, and should not referenced 
--I in any Wpt call until it is created again. 



D i spa tch_I tern 



-- Subprogram SPEC 



procedure Dispatch_Item 

( User_Context_Ptr -- Wpt Event Context for a PARM 

: in TAE . Tae_Wpt . Even} t_Cont ext _Ptr ); -- event. 

--I PURPOSE: 

-- I This procedure calls the Event Handler specified by User_Context_Ptr 
--I 

--I EXCEPTIONS: 

-- I Application-specific 

end Panel_library ; 
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2. PAN_LIBRARY_B.A 

__ TAE Plus Code Generator version V5 . 1 

__***File ; pan_l ibrary_b . a 

-- *** Generated : May 21 16:12:31 1992 
-- *** Revised by : Dogan Ozdemir 

___ ★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★it***************-*-*’'*-****''*'*’-*'***’-*'*-*-*-* 

★ 

* Panel_library -- Package BODY 

★ 

with TAE; use TAE; 
with Text_IO; 
with Global; 
use Text_IO, Global ; 

-- One “with 11 statement for each connected panel, 
with Panel_lbselect ; 
with Panel_l ibadd ; 
with Panel_lbdelete ; 

package body Panel_l ibrary is 



NOTES : 

For each parameter that you have defined to be " event -generat ing " in 
this panel, there is an event handler procedure below. Each handler 
has a name that is a concatenation of the parameter name and "_Event" . 
Add application-dependent logic to each event handler. (As generated 
by the WorkBench, each event handler simply logs the occurrence of 
the event . ) 

You may want to flag any changes you make to this file so that if 
you regenerate this file, you can more easily cut and paste your 
modifications back in. 



REGENERATED : 

The following WorkBench pperations will cause regeneration of this 
f ile : 

The panel's name is changed (not title) 

For panel: 
library 

The following WorkBench operations will also cause regeneration: 

An item is deleted 

A new item is added to this panel 
An item's name is changed (not title). 

An item's data type is changed 

An item's generates events flag is changed 

An item's valids changed (if item is type string and connected) 
An item's connection information changed 
For the panel items: 

libfunc, help, quit 
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In it ialize_Panel 



-- Subprogram BODY 



procedure Init ialize_Panel 
( Collect ion_Read 

; in TAE . Tae_Co . Col lect ion_Ptr ) is 

begin -- Init ialize_Panel 

Info := new TAE . Tae_Wpt . Even t_Cont ext ; 

Info . Collect ion := Col lect ion_Read ; 

TAE.Tae_Co .Co_Find ( Inf o . Col lect ion , " 1 ibrary_v" , Info. View) ; 

TAE . Tae_Co .Co_Find ( Info . Collection , " library_t ” , Info . Target ) ; 

exception 

when TAE . UNINITIALIZED_PTR => 

Text_IO . Put_Line ( " Panel_l ibrary . Init ialize_Panel : " 

Sc "Collect ion_Read not initialized."); 
raise; 

when TAE.Tae_Co.NO_SUCH_MEMBER => 

Text_IO . Put_Line ( " Panel_library . Ini t ial ize_Panel : " 

Sc "{View or Target) not in Collection."); 
raise ; 

end Init ialize_Panel ; 



Create_Panel 



-- Subprogram BODY 



procedure Create_Panel 
{ Panel_State 

: in TAE .Tae_Wpt . Wpt_Flags 
:= TAE . Tae_Wpt . WPT_PREFERRED ; 

Relative_Window 

: in X_Windows .Window 
:= X_Windows . Null_Window ) is 



begin -- Create_Panel 

if Inf o . Pane l_Id = Tae . Null_Panel_Id then 
TAE . Tae_Wpt . Wpt_NewPane 1 
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( Dummy 
Data_Vm 
V i ew_Vm 

Relat ive_Window 
User_Context 
Flags 
Panel_Id 

else 

Text_IO . Put_Line ("Panel 
end if; 



=> "", 

=> Info. Target, 

=> Info. View, 

=> Relat ive_Window, 

=> Info, 

=> Panel_State, 

=> Inf o . Panel_Id ); 

(library) is already displayed."); 



exception 

when TAE . UNINITIALIZED_PTR => 

Text_IO . Put_Line ( " Panel__library . Create_Panel : 

& "Panel was not initialized prior to creation."); 
raise; 



when TAE . TAE_FAIL => 

Text_IO . Put_Line ( " Panel_library . Create_Pane 1 : 
Sc "Panel could not be created. ") ; 
raise; 

end Create_Panel; 



Connect_Panel 



Subprogram BODY 



procedure Connect_Panel 
( Panel_State 

: in TAE.Tae_Wpt .Wpt_Flags 

: = TAE . Tae_Wpt . WPT_PREFERRED ? 

Relat ive_Window 

: in X_Windows .Window 

:= X_Windows .Null_Window ) is 



begin -- Connect_Panel 

if Inf o . Panel_Id = Tae . Nul l_Panel_Id then 
Create_Panel 

( Relat ive_Window => Relat ive_Window, 

Panel_State => Panel_State ) ; 

else 

TAE .Tae_Wpt . Wpt_Set PanelState ( Inf o . Panel_Id, Panel_State) ; 
end i f ; 
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exception 

when TAE . Tae_Wpt . BAD_STATE => 

Text_IO . Put_Line ( " Panel_l ibrary . Connect_Panel : 
Sc "Invalid panel state.") ; 
raise; 

end Connect_Panel ; 



Destroy_Panel 



-- Subprogram BODY 



procedure Des t roy_Panel is 
begin -- Destroy_Panel 

TAE . Tae__Wpt . Wpt_Pane lErase ( Info . Panel_Id) ; 
exception 

when TAE . Tae_Wpt . BAD_PANEL_ID => 

Text_IO . Put_Line ( " Panel_library . Destroy_Panel : " 

Sc " Inf o . Panel_Id is an invalid id."); 
raise; 

when TAE . Tae_Wpt . ERASE_NULL_PANEL => 

-- This panel has not been created yet, or has already been destroyed. 
— Trap this exception and do nothing, 
null ; 

end Destroy_Panel ; 

- - +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 
-- begin EVENT HANDLERS 



1 ibf unc^Event 



-- Subprogram SPEC Sc BODY 



procedure libfunc_Event 

( Info : in TAE . Tae_Wpt . Event_Context_Ptr ) is 

--1 PURPOSE: 

--I EVENT HANDLER. Insert application specific information. 

Value : array (1..1) of String ( 1 . . TAE . Tae_Taeconf . STRINGSIZE) ; 
Count : TAE.Taeint; 
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id_string 

id 

len , I , J 



id_f ile 



f ile_type ; 

String (1..80):= (others=> 1 '); 
String (1..10):= (others=>‘ '); 
integer := 1; 



begin -- libfunc_Event 

-- Begin default generated code 

TAE . Tae_Vm . Vm_Extract_Count ( Inf o . Parm_Ptr , Count); 
if Count > 0 then 

TAE.Tae_Vm.Vm_Extract_SVAL ( Inf o . Parm_Ptr , 1, Value (1)) ; 

end if; 

sys tem_call ( " whoami > id_file" ); 
open ( id_f ile , mode=>in_f i le , name = >'' id_f ile" ) ; 
get_line ( id_f ile, id_string, len) ; 
while id_string(I) /= ' ' loop 

id(J) : =id_st r ing ( I ) ; 

I : = 1 + 1; 

J : = J+ 1 ; 
end loop; 

-- End default generated code 
-- Begin generated code for Connection 

if TAE . Tae_Misc . s_equal (Valued), "Library Selection") then null; 
Connect_Panel (TAE . Tae_Wpt . WPT_INVISIBLE ) ; 

Panel_lbselect . Connect_Panel (TAE .Tae_Wpt . WPT_VISIBLE) ; 

elsif TAE . Tae_Misc . s_equal (Value(l), "Library Addition") then 
if id(1..4) = "root" then 
Connect_Panel (TAE . Tae_Wpt . WPT_INVISIBLE) ; 

Panel_libadd . Connect_Panel (TAE.Tae_Wpt . WPT_VISIBLE) ; 



TAE . Tae_Wpt . Wpt_Pane lMessage ( info .panel_id, "AUTHORIZED 
PERSONNEL ONLY 1 " ) ; 



elsif TAE .Tae_Misc . s_equ^l (Value (1), "Library Deletion") then 
if id(1..4) = "root" then 
Connect_Panel (TAE . Tae_Wpt . WPT_INVISIBLE) ; 

Panel_lbdelete . Connect_Panel (TAE .Tae_Wpt . WPT_VISIBLE) ; 
else 

TAE .Tae_Wpt . Wpt_PanelMessage ( info .panel_id, "AUTHORIZED 
PERSONNEL ONLY 1 " ) ; 
end if; 
end i f ; 

I : = 1 ; J : = 1 ; 
id : = " 

system_call ( " rm id_file"); 

-- End generated code for Connection 

end libfunc_Event ; 



else 



end if; 
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quit_Event 



Subprogram SPEC & BODY 



procedure quit_Event 

( Info : in TAE . Tae_Wpt . Event_Context_Ptr ) is 
--I PURPOSE: 

--I EVENT HANDLER. Insert application specific information. 

Value : array (1..1) of String ( 1 .. TAE . Tae_Taeconf . STRINGS I ZE) ; 
Count : TAE.Taeint; 

begin -- quit_Event 

-- Begin default generated code 

TAE . Tae_Vm. Vm_Extract_Count ( Inf o . Parm_Ptr , Count) ; 
if Count > 0 then 

TAE . Tae_Vm . Vm_Extract_SVAL ( Inf o . Parm_Ptr , 1, Value (1) ) ; 

end if; 

-- End default generated code 
--ADDED 

Global . Set_Applicat ion_Done ; 
end quit_Event; 

-- end EVENT HANDLERS 



Di spa tch_I tern 



Subprogram BODY 



procedure Dispatch_Item 

( User_Context_Ptr : in TAE . Tae_Wpt . Event_Context_Ptr ) is 
begin -- Dispatch_Item 

if TAE .Tae_Misc . s_equal ( " libfunc " , User_Context_Ptr . Parm_Name) then 
libfunc_Event ( User_Context_Ptr ) ; 

elsif TAE . Tae_Misc . s_equal ("quit", User_Context_Ptr . Parm_Name ) then 
quit_Event (User_Context_Ptr ) ; 
end if; 

end Dispatch_Item; 
end Panel_library ; 
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D. PANEL LIBADD PACKAGE 



1. PAN_LIBADD_S.A 

-- *** tAE Plus Code Generator version V5 . 1 
-- *** File : pan_libadd_s . a 

-- *** Generated : May 21 16:12:31 1992 
__ *★* Revised by : Dogan Ozdemir 



Panel_libadd 



Package SPEC 






with TAE; 
with X_Windows; 

package Panel_libadd is 



PURPOSE: 

This package encapsulates the TAE Plus panel: libadd 

These subprograms enable panel initialization, creation, destruction, 
and event dispatching. For more advanced manipulation of the panel 
using the TAE package, the panel's Event_Context (Info) is provided. 
It includes the Target and View (available after initialization) 
and the Panel_Id (available after creation) . 



REGENERATED : 

The following Workbench operations will cause regeneration of this 
f ile : 

The panel's name is changed (not title) 

For panel: 

1 ibadd 



Info : TAE . Tae_Wpt . Even t_Context_Ptr ; -- panel information 



In it ialize_Panel 



Subprogram SPEC 



procedure In it ialize_Panel 

( Collect ion_Read -- TAE Collection read from 

: in TAE. Tae_Co. Collect ion_Ptr ); -- resource file 

--I PURPOSE: 

--I This procedure initializes the Info. Target and Info. View for this 
-- I panel 

— I 
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-- | EXCEPTIONS: 

-- I TAE . UNINITIAL I ZED_PTR is raised if Collect ion_Read not initialized 
--I TAE . Tae_Co . NO_SUCH_MEMBER is raised if the panel is not in 
-- | Collect ion_Read 



Create_Panel 



Subprogram SPEC 



procedure Create_Panel 
( Panel_State 

: in TAE .Tae_Wpt .Wpt_Flags 

: = TAE . Tae_Wpt . WPT_PREFERRED ; 

Relat ive_Window 

: in X_Windows .Window 

:= X_Windows . Nul l_Window ); 



-- Flags sent to Wpt_NewPanel . 



-- Panel origin is offset from 
-- this X Window. Null_Window 
-- uses the root window. 




PURPOSE: 

This procedure creates this panel object in the specified Panel_State 
and stores the panel Id in Inf o . Panel_Id . 



EXCEPTIONS : 



--I TAE . UNINITIAL I ZED_PTR is raised if the panel is not initialized 
--I TAE.TAE_ FAIL is raised if the panel could not be created 



Connect_Panel 



-- Subprogram SPEC 



procedure Connect_Panel 
( Panel__State 

: in TAE . Tae_Wpt .Wpt_F lags 

:= TAE.Tae_Wpt .WPT_PREFERRED; 

Relat ive_ Window 

: in X_Windows .Window 

:= X_Windows .Null_Window ); 



-- Panel origin is offset from 
-- this X Window. Null_ Window 
-- uses the root window. 



--I PURPOSE: 

--I If this panel doesn't exist, this procedure creates this panel object 
-- I in the specif iec Panel_State and stores the panel Id in 
-- I Info . Panel_Id. 

--I If this panel does exist, it is set to the specified Panel_State. 
--I In this case, Relat ive_Window is ignored. 

— I EXCEPTIONS: 
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TAE . UNINITIALIZED_PTR is raised from Create_Panel if the panel is 
not initialized 

TAE.TAE_FAIL is raised from Create_Panel if the panel could not be 
created 

TAE . Tae_Wpt . BAD_STATE is raised if the panel exists and the 
Panel_State is an invalid state 



Destroy_Panel 



-- Subprogram SPEC 



procedure Destroy_Panel ; 



PURPOSE: 



--I This procedure erases a panel from the screen and de-allocates the 
-- I associated panel object (not the target and view). 



EXCEPTIONS: 



--I TAE . Tae_Wpt . BAD_PANEL_ID is 
-- I id. 



raised if 



Inf o . Panel_Id is an invalid 



NOTES : 



--I Inf o . Panel_Id is set to TAE . NULL._PANEL._ID, and should not referenced 
--! in any Wpt call until it is created again. 



Di spat ch_I tern 



Subprogram SPEC 



procedure Di spat ch_I tern 

( User_Context_Ptr -- Wpt Event Context for a PARM 

: in TAE . Tae_Wpt . Event_Context_Ptr ); -- event. 

-- I PURPOSE: 

-- I This procedure calls the Event Handler specified by User_Context_Ptr 
-- I 

--I EXCEPTIONS: 

-- I Application-specific 

end Panel_libadd ; 
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2. PAN LIBADD B.A 



-- *** TAE Plus Code Generator version V5 . 1 
__ File : pan_libadd_b . a 

-- *** Generated : May 21 16:12:31 199- 
-- *** Revised by : Dogan Ozdemir 



Panel_libadd 



-- Package BODY 



with TAE; use TAE; 

with Text_IO;use Text_IO; 

with Global; 

with Panel_lbselect ; 

with Panel_lbdelete ; 

use Global; 

-- One "with” statement for each connected panel, 
with Panels library ; 

package body Panel_libadd is 



NOTES : 

For each parameter that you have defined to be "event-generating" in 
this panel, there is an event handler procedure below. Each handler 
has a name that is a concatenation of the parameter name and "_Event". 
Add application-dependent logic to each event handler. (As generated 
by the WorkBench, each event handler simply logs the occurrence of 
the event . ) 



You may want to flag any changes you make to this file so that if 
you regenerate this file, you can more easily cut and paste your 
modifications back in. 



REGENERATED : 

The following WorkBench operations will cause regeneration of this 
file: 



For 



The panel's name is changed 
panel : 



libadd 



(not title) 



The 



following WorkBench operations will also cause regeneration: 

An item is deleted 

A new item is added to this panel 

An item's name is changed (not title) 

An item's data type is changed 

An item's generates events flag is changed 

An item's valids changed (if item is type string and connected) 
An item's connection information changed 
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I For the panel items: 



libname, 




rulefile, 


ok, 




cancel , 


ADDED 

rulefile 


String 


(1. .15) : = 


(others=> ' 


' ) ; 




1 ibr 


String 


J— 1 

h-* 

O 

II 


( others=> ' 


1 ) ; 




err_string : 


String 


(1. .80) : = 


(others=> ' 


1 ) ; 





error_file : file_type; 

error_fname: String(1..9) := "errorfile" ; 

package integer__inout is new Text_IO . integer_io ( integer ) ; 
use integer_inout ; 



Init ial ize_Panel 



-- Subprogram BODY 



procedure Init iali ze_Panel 
( Collect ion_Read 

: in TAE.Tae_Co.Collection_Ptr ) is 

begin -- Ini t iali ze_Panel 

Info := new TAE . Tae_Wpt . Even t_Cont ext ; 

Inf o . Col lect ion := Col lect ion_Read ; 

TAE . Tae_Co . Co_Find ( Info . Collection, " libadd_v" , Info .View) ; 
TAE . Tae_Co . Co_Find ( Info .Collect ion, " libadd_t " , Info .Target ) ; 

exception 

when TAE . UNINITIALIZED_PTR => 

Text_IO . Put_Line ( " Panel_libadd . Ini t ialize_Panel : 

Sc "Collection_Read not initialized."); 
raise ; 

when TAE . Tae_Co . NO_SUCH_MEMBER => 

Text_IO . Put_Line ( " Panel_libadd . Init ialize_Panel : " 

Sc "(View or Target) not in Collection."); 
raise ; 

end Initialize_Panel ; 



Create_Panel 



Subprogram BODY 



procedure Create_Panel 
( Panel_State 
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: in TAE . Tae_Wpt . Wpt_Flags 

:= TAE . Tae_Wpt . WPT_PREFERRED ; 

Re lat ive_Window 

: in X_Windows .Window 

:= X_Windows . Nul l_Window ) is 



begin -- Create_Panel 

if Info . Panel_Id = Tae . Null_Panel_Id then 
TAE . Tae_Wpt . Wpt_NewPane 1 



Text_IO . Put_Line ("Panel (libadd) is already displayed."); 
end if; 

except ion 

when TAE . UNINITIALIZED_PTR => 

Text_IO . Put_Line ( " Panel_libadd . Create_Panel : " 

& "Panel was not initialized prior to creation."); 
raise; 

when TAE.TAE_FAIL => 

Text_IO. Put_Line ( " Panel_libadd . Create_Panel : 

£c "Panel could not be created."); 
raise ; 

end Create_Panel ; 



procedure Connect_Panel 
( Panel_State 

: in TAE.Tae_Wpt .Wpt_Flags 

:= TAE . Tae_Wpt . WPT_PREFERRED ; 

Relative_Window 

: in X_Windows .Window 

:= X_Windows .Nul l_Window ) is 



( Dummy 
Data_Vm 
V i ew_Vm 

Relative_Window 

User_Context 

Flags 

Panel_Id 



=> Info. Target, 

=> Info. View, 

=> Re lat ive_Window, 
=> Info, 

=> Panel_State, 

=> Inf o . Panel_Id ); 



else 



Connect_Panel 



Subprogram BODY 
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begin -- Connect_Panel 



if Inf o . Panel_Id = 



Tae . Null_Panel_Id then 



Create_Panel 



( Relat ive_Window 
Panel_State 



=> Relative_Window, 
=> Panel_State ) ; 



else 



TAE .Tae_Wpt . Wpt_SetPanelState ( Info . Panel_Id, Panel_State) ; 
end if; 

exception 

when TAE . Tae_Wpt . BAD_STATE => 

Text_IO . Put_Line ( " Panel_l ibadd . Connect_Panel : " 

Sc "Invalid panel state."); 
raise ; 

end Connect_Panel; 



procedure Destroy_Panel is 
begin -- Destroy_Panel 

TAE . Tae_Wpt . Wpt_PanelErase ( Info . Panel_Id) ; 
exception 

when TAE . Tae_Wpt . BAD_PANEL_ID => 

Text_IO . Put_Line ( " Panel_libadd . Destroy_Panel : " 

Sc " Inf o . Panel_Id is an invalid id."); 
raise; , 

when TAE . Tae_Wpt . ERAS E_NULL_ PANEL => 

-- This panel has not been created yet, or has already been destroyed. 
-- Trap this exception and do nothing, 
null; 

end Destroy_Panel ; 

--+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 
-- begin EVENT HANDLERS 



Destroy_Panel 



Subprogram BODY 



1 ibname_Event 



Subprogram SPEC Sc BODY 
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procedure 1 ibname_Event 

( Info : in TAE . Tae_Wpt . Event_Context_Ptr ) is 

--I PURPOSE: 

-- I EVENT HANDLER. Insert application specific information. 

Value : array (1..1) of String ( 1 . . TAE . Tae.Taeconf . STRINGSIZE) ; 
Count : TAE.Taeint; 

begin -- libname_Event 

-- Begin default generated code 

TAE.Tae_Vm.Vm_Extract_Count ( Inf o . Parm_Ptr , Count) ; 
if Count > 0 then 

TAE . Tae_Vm . Vm_Ext ract_SVAL ( Inf o . Parm_Ptr , 1, Value (1)) ; 

else 
null; 
end if; 

--ADDED 

libr ( 1 . .10) : =Value ( 1 ) (1. .10) ; 

-- End default generated code 

end libname_Event ; 



rulef ile_Event 



-- Subprogram SPEC & BODY 



procedure rulef ile_ Event 

( Info : in TAE . Tae_Wpt . Event_Context_Ptr ) is 

— I PURPOSE: 

--I EVENT HANDLER. Insert application specific information. 

Value : array (1..1) of String ( 1 .. TAE . Tae_Taeconf . STRINGSIZE) ; 
Count : TAE.Taeint; 

begin -- rulef ile_Event 

-- Begin default generated code 

TAE . Tae_Vm . Vm_Extract_Count ( Inf o . Parm_Ptr , Count) ; 
if Count > 0 then 

TAE . Tae_Vm. Vm_Extract_SVAL ( Info . Parm_Ptr , 1, Value(l) ) ; 
--ADDED 

rulefile(l. .15) := Value ( 1 )( 1 .. 15 ) ; 

else 
null ; 
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-- Subprogram SPEC & BODY 



end if; 

-- End default generated code 
end rulef ile_Event ; 



ok_Event 



procedure ok_Event 

( Info : in TAE . Tae_Wpt . Event_Context_Ptr ) is 
--I PURPOSE: 

--I EVENT HANDLER. Insert application specific information. 

Value : array (1..1) of String ( 1 . . TAE . Tae_Taeconf . STRINGSIZE) ; 
Count : TAE.Taeint; 

--ADDED 

dir : constant String := " $HOME/caps/src/sof tware_base/ " ; 

N,M : Integer :=1; 

Dummy: Boolean; 

Libcontent : file_type; 

len, S : integer : =1 ; 

begin -- ok_Event 

-- Begin default generated code 

TAE.Tae_Vm.Vm_Extract_Count ( Info . Parm_ Ptr , Count) ; 
if Count > 0 then 

TAE.Tae_ Vm.Vm_ Extract_SVAL ( Inf o . Parm_Ptr , 1, Value (1)) ; 

else 
null ; 
end if; 

--ADDED 



open (Libcontent ,mode=>in_ r file / name=>" libcontent" ) ; 
get (Libcontent , lib_count , 1 ) ; 
if lib_count >= 10 then 

TAE .Tae_Wpt . Wpt_PanelMessage ( info . panel_id, "ONLY 20 LIBRARY IS 
PERMITTED" ) ? 
else 

global . str len ( libr , N) ; 
global .strlen(rulefile,M) ; 

global . system_call (com&"ml "&libr ( 1 . ,N)-&" " &dir&rulef ile ( 1 . ,M) &" > 
" &error_fname) ; 

global . errorstring (error_f ile, error_fname, err_string) ; 
global . str len (err_string , S) ; 
if S>1 then 

TAE . Tae_ Wpt . Wpt_PanelMessage ( info . panel_id, err_string ) ; 

S : = 1 ; 
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global . system_call ( "rm " &error_f name) ; 
for err in 1..80 loop 
err_str ing ( err ) : = 1 
end loop; 
else 

lib_count : =lib_count+l ; 

skip_line (Libcontent ) ; 

for I in 1 . . ( lib_count-l ) loop 

get_line (Libcontent , lib_vec ( I ) . all , len ) ; 
skip_l ine ( Libcontent ) ; 
end loop; 

lib_vec ( lib_count ) .all:=libr; 

TAE . Tae_Wpt . Wpt_SetSt r ingCons traints ( Pane l_lbs elect . Inf o . Panel_Id, " selec 
tion" , taeint ( lib_count ) , lib_vec) ; 

TAE . Tae_Wpt .Wpt_SetStr ingCons traints ( Pane l_lbde let e . Info . Panel_Id, "selec 
tion" , taeint (lib_count ) , lib_vec) ; 

Dummy : =TAE . Tae_Wpt . Wpt_Pending ; --Now! 
reset (Libcontent , out_f i le) ; 
put (Libcontent , lib_count , 1 ) ; 
new_line (Libcontent ) ; 
for J in l..lib_count loop 

put_line (Libcontent , lib_vec ( J) . all ) ; 
end loop; 
end if; 
end if; 

close (Libcontent ) ; 

-- End default generated code 
-- Begin generated code for Connection 
Connect.Panel (TAE .Tae_Wpt . WPT_INVISIBLE) ; 

Panel_library . Connect_Panel (TAE .Tae_Wpt . WPT_VISIBLE) ; 

-- End generated code for Connection 
--ADDED 

TAE . Tae_Wpt . Wpt_PanelReset ( Info . Panel_Id) ; 
end ok_Event ; 



cancel_Event 



Subprogram SPEC & BODY 



procedure cancel_Event 

( Info : in TAE . Tae_Wpt . Event_Context_Ptr ) is 
--I PURPOSE: 

--I EVENT HANDLER. Insert application specific information. 
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Value : array (1..1) of String ( 1 .. TAE . Tae_Taeconf . STRINGS I ZE) ; 
Count : TAE.Taeint; 

begin -- cancel_Event 

-- Begin default generated code 

TAE . Tae_Vm . Vm_Extract_Count ( Inf o . Parm_Pt r , Count); 
if Count > 0 then 

TAE . Tae_Vm. Vm_Extract_SVAL ( Info . Parm_Ptr , 1 , Value ( 1 ) ) ; 

end if; 

-- End default generated code 
-- Begin generated code for Connection 
Connect_Panel (TAE . Tae_Wpt .WPT_ INVISIBLE) ; 

Panel_library .Connect_Panel (TAE .Tae_Wpt . WPT_VISIBLE) ; 

-- End generated code for Connection 
--ADDED 

TAE . Tae_Wpt . Wpt_PanelReset ( Info . Panel_Id) ; 
end cancel_Event ; 

-- end EVENT HANDLERS 



Dispatch_Item 



-- Subprogram BODY 



procedure Dispa tch_Item 

( User_Context_Ptr : in TAE . Tae_Wpt . Event_Cont ext_Ptr ) is 



begin -- Dispatch_I tem 

if TAE.Tae_Misc.s_equal ( M libname" r User_Context_Ptr . Parm_Name ) then 
libname_Event (User_Context_Ptr ) ; 

elsif TAE . Tae_Misc . s_equal ( "rulef ile" , User_Context_Ptr . Parm_Name) 

then 

rulef ile_Event (User_Context_Ptr ) ; 
elsif TAE . Tae_Misc . s_equal ("ok M , User_Context_Ptr . Parm_Name ) then 
ok_Event (User_Context_Ptr ) ; 

elsif TAE . Tae_Misc . s_equal ("cancel", User_Context_Ptr . Parm_Name ) then 
cancel_Event (User__Context_Ptr ) ; 
end if; 

end Dispatch_Item; 
end Panel_libadd; 
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E 



PANEL LBDELETE PACKAGE 



1. PAN_LBDELETE_S.A 

__ ★ TAE Plus Code Generator version V5 . 1 
__ *★* File : pan_lbde let e_s . a 

-- ★★★ Generated : May 21 16:12:31 1992 
__ ★★★ Revised by : Dogan Ozdemir 

★ 

* Panel_lbdelete -- Package SPEC 

★ 



with TAE; 
with X_Windows; 

package Panel_lbdelete is 



PURPOSE: 

This package encapsulates the TAE Plus panel: lbdelete 

These subprograms enable panel initialization, creation, destruction, 
and event dispatching. For more advanced manipulation of the panel 
using the TAE package, the panel's Event_Context (Info) is provided. 
It includes the Target and View (available after initialization) 
and the Panel__Id (available after creation) . 



REGENERATED: 

The following Workbench operations will cause regeneration of this 
file: 

The panel's name is changed (not title) 

For panel: 
lbdelete 



Info : TAE . Tae_Wpt . Event_Context_Ptr ; -- panel information 



In it ialize_Panel 



-- Subprogram SPEC 



procedure Init ialize_Panel 

( Collect ion_Read — TAE Collection read from 

: in TAE .Tae_Co . Collect ion_Ptr ); -- resource file 

--I PURPOSE: 

--I This procedure initializes the Info. Target and Info. View for this 
panel 
— I 
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--I EXCEPTIONS: 

-- j TAE . UNINITIAL I ZED__PTR is raised if Col lect ion_Read not initialized 
-- I TAE . Tae_Co . NO_SUCH_MEMBER is raised if the panel is not in 
-- | Collect ion_Read 



Create_Panel 



Subprogram SPEC 



procedure Create_Panel 
( Panel_State 

: in TAE . Tae_Wpt . Wpt_Flags 

: = TAE . Tae_Wpt . WPT_PREFERRED ; 

Relat ive_Window 

: in X_Windows .Window 

:= X_Windows .Null_Window ); 



-- Flags sent to Wpt_NewPanel . 



-- Panel origin is offset from 
-- this X Window. Null_Window 
-- uses the root window. 



PURPOSE: 

This procedure creates this panel object in the specified Panel_State 
and stores the panel Id in Info . Panel_Id . 



EXCEPTIONS : 

TAE . UNINITIALIZED_PTR is raised if the panel is not initialized 
TAE . TAE_FAIL is raised if the panel could not be created 



Connect_Panel 



Subprogram SPEC 



procedure Connect_Panel 
( Panel_State 

: in TAE . Tae_Wpt . Wpt_Flags 

: = TAE . Tae_Wpt . WPT_PREFERRED ; 

Relat ive_Window 

: in X_Windows .Window 

:= X_Windows .Null_Window ); 



-- Panel origin is offset from 
-- this X Window. Null_Window 
-- uses the root window. 



-- I PURPOSE: 

If this panel doesn’t exist, this procedure creates this panel object 
--I in the specif iec Panel_State and stores the panel Id in 
-- I Info . Panel_Id . 

--•) If this panel does exist, it is set to the specified Panel_State. 
-- I In this case, Relat ive_Window is ignored. 

--I EXCEPTIONS: 
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--I TAE . UNINITIALIZED_PTR is raised from Create_Panel if the panel is 
--I not initialized 

-- I TAE.TAE_FAIL is raised from Create_Panel if the panel could not be 



created 

TAE . Tae_Wpt . BAD_STATE 
Panel State is an 



is raised if 
invalid state 



the panel exists and the 



Destroy_Panel 



-- Subprogram SPEC 



procedure Dest roy_Panel ; 



--I PURPOSE: 

--I This procedure erases a panel from the screen and de-allocates the 
--I associated panel object (not the target and view). 



— I EXCEPTIONS: 

--I TAE . Tae_Wpt . BAD_PANEL_ID is raised if Inf o . Panel_Id is an invalid 
id. 



NOTES : 



--I Inf o . Panel_Id is set to TAE . NULL_PANEL_ID , and should not referenced 
-- I in any Wpt call until it is created again. 



Dispatch_Item 



-- Subprogram SPEC 



procedure Dispatch_Item 

( User_Context_Ptr -- Wpt Event Context for a PARK 

: in TAE . Tae_Wpt . Event_Context_Ptr ); -- event. 

--I PURPOSE: 

--I This procedure calls the Event Handler specified by User_Context_Ptr 
-- I 

-- I EXCEPTIONS: 

--I Application-specific 

end Panel_lbdelete ; 
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2. PAN LBDELETE B.A 



__ *** TA E Plus Code Generator version V5 . 1 
-- *** File : pan_lbdelete_b . a 

-- *** Generated : May 21 16:12:31 1992 
__ Revised by : Dogan Ozdemir 

*★*★★★★★*★*★★★★★★★*★**★★★★★★★★★★★*★★★*★★*★**•*★*★*★***★********•*.★'*••*•■*• 

* 

* Panel_lbdelete -- Package BODY 

* 

with TAE; use TAE; 
with Text_IO; 
with Global; 
use Global, Text_IO; 



-- One "with" statement for each connected panel, 
with Panel_library ; 
with Panel_ldelwarn ; 

package body Panel_lbdelete is 



NOTES : 

For each parameter that you have defined to be " event-generating" in 
this panel, there is an event handler procedure below. Each handler 
has a name that is a concatenat ion of the parameter name and "_Event". 
Add application-dependent logic to each event handler. (As generated 
by the WorkBench, each event handler simply logs the occurrence of 
the event.) 



You may want to flag any changes you make to this file so that if 
you regenerate this file, you can more easily cut and paste your 
modifications back in. 



REGENERATED : 

The following WorkBench operations will cause regeneration of this 
f ile : 

The panel's name is changed (not title) 

For panel: 

Ibdelete 



The following WorkBench operations will also cause regeneration: 

An item is deleted 

A new item is added to this panel 
An item's name is changed (not title) 

An item's data type is changed 

An item's generates events flag is changed 

An item's valids changed (if item is type string and connected) 
An item's connection information changed 
For the panel items: 

selection, cancel, ok 
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- -ADDED 

package integer_inout is new Text_IO . integer_io ( integer ) ; 
use integer_inout ; 



In it ialize_Panel 



-- Subprogram BODY 



procedure Init ialize_Panel 
{ Collect ion_Read 

: in TAE . Tae_Co . Collect ion_Ptr ) is 



begin -- Ini t ial ize_Panel 

Info := new TAE.Tae_Wpt.Event_Context; 

Inf o . Collect ion := Collect ion_Read ; 

TAE . Tae_ Co . Co_Find ( Info . Collection , " lbdelete_v" , Inf o .View) ; 

TAE . Tae_Co . Co_Find ( Inf o . Collect ion , " lbdelete_t " , Inf o . Target ) ; 

exception 

when TAE . UNINITIALIZED_PTR => 

Text_IO . Put_Line { " Pane l_lbde let e . Initial ize_Panel : " 

& " Collection_Read not initialized."); 
raise ; 

when TAE . Tae_Co . NO_SUCH_MEMBER => 

Text_IO . Put_Line ( " Panel_lbdelete . Init ialize_Panel : " 

Sc "(View or Target) not in Collection."); 
raise; 

end Init ialize_Panel ; 



Create_Panel 



-- Subprogram BODY 



procedure Create_Panel 
( Panel_State 

: in TAE . Tae_Wpt . Wpt_Flags 

:= TAE . Tae_Wpt . WPT_PREFERRED ; 

Relat ive_Window 

: in X_Windows .Window 

;= X_Windows . Null_Window ) is 
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begin -- Create_Panel 



if Info . Panel_Id = Tae.Nul 
TAE . Tae_Wpt . Wpt_NewPane 1 
( Dummy 



Tae . Null_Panel_Id then 



= > " " , 

=> Info. Target, 

=> Info. View, 

=> Relat ive_Window, 
=> Info, 

= > Panel__State , 

=> Inf o . Panel_Id ); 



Data_Vm 
V i e w_Vm 

Re 1 a t i ve_W i ndow 
User_Context 
Flags 
Panel_Id 



else 



Text__IO . Put_Line ("Panel (Ibdelete) is already displayed."); 
end if; 

exception 

when TAE . UNINITIALIZED_PTR => 

Text_IO . Put_Line ( " Panel_lbdelete . Create_Panel : " 

Sc "Panel was not initialized prior to creation."); 
raise; 

when TAE . TAE_FAIL => 

Text_IO . Put_Line ( " Panel_lbdelete . Create_Panel : " 

Sc "Panel could not be created."); 
raise; 

end Create_Panel ; 



: in TAE . Tae_Wpt . Wpt_Flags 

: = TAE . Tae_Wpt . WPT^PREFERRED ; 

Re 1 a t i ve__W i ndow 

: i n X_W i ndows . W i ndow 

:= X_Windows .Null_Window ) is 

--ADDED 

Libcontent : file_type; 
len : integer :=1; 

Dummy : Boolean; 

begin -- Connect_Panel 



Connect_Panel 



Subprogram BODY 



procedure Connect_Panel 
( Panel_State 
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if Inf o . Panel_Id = 



Tae . Nul l_Panel_Id then 



Create_Panel 



( Relat ive_Window 
Panel_State 



=> Relat ive_Window, 
=> Panel_State ) ; 



else 



TAE.Tae_Wpt . Wpt_SetPanelState ( Info . Panel_Id, Panel_State) ; 

--ADDED 

open (Libcontent , mode=>in_f ile , name=>" libcontent " ) ; 
get (Libcontent , 1 ib_count , 1 ) ; 
skip_line (Libcontent ) ; 
for I in l..lib_count loop 

get_l ine ( Libcontent , lib_vec(I) .all, len) ; 
skip_line (Libcontent ) ; 
end loop; 

TAE . Tae_Wpt . Wpt^SetStr ingCons traints ( Info . Panel_Id, " selection" , taeint ( li 
b_count) , lib_vec) ; 

Duitmy : =TAE . Tae_Wpt . Wpt_Pending ; 
end i f ; 

exception 

when TAE . Tae_Wpt . BAD_STATE => 

Text_IO . Put_Line ( " Panel_lbdelete . Connect_Panel : " 

& "Invalid panel state."); 
raise; 

end Connect_Panel ; 



procedure Destroy_Panel is 

i 

begin -- Destroy_Panel 

TAE . Tae_Wpt . Wpt_PanelErase ( Info . Panel_Id) ; 
exception 

when TAE . Tae_Wpt . BAD_ PANEL. ID => 

Text_IO . Put_Line ( " Panel_lbdelete . Destroy_Panel : " 

Sc " Inf o . Panel_Id is an invalid id." ); 
raise ; 

when TAE.Tae_Wpt . ERAS E_NULL_ PANEL => 

-- This panel has not been created yet, or has already been destroyed. 



Destroy_Panel 



Subprogram BODY 
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-- Trap this exception and do nothing, 
null; 

end Destroy_Panel ; 



+ + + ++ + + + + + -f + + + + + + + + + -f + + + + + + + + + + + + + + + + + + -f + + + + + + + + + + + + + + + + + + + + + + + + + + + 

-- begin EVENT HANDLERS 



select ion_Event 



Subprogram SPEC & BODY 



procedure select ion_Event 

( Info : in TAE . Tae_Wpt . Event_Context_Ptr ) is 

--I PURPOSE: 

-- I EVENT HANDLER. Insert application specific information. 



Value : array (1..1) of String ( 1 . . TAE . Tae_Taeconf . STRINGSIZE) ; 
Count : TAE.Taeint; 

begin -- select ion_Event 

-- Begin default generated code 

TAE . Tae_Vm. Vm_Extract_Count ( Inf o . Parm_Ptr , Count) ; 
if Count > 0 then 

TAE . Tae_Vm. Vm_Extract_SVAL ( Info . Parm_Ptr , 1 , Value ( 1) ) ; 

else 
null; 
end if; 

--ADDED 

lib_to_delete ( 1 . . 10 ) : =Va^lue ( 1 ) ( 1 . . 10 ) ; 

-- End default generated code 
end select ion_Event ; 



cancel_Event 



-- Subprogram SPEC & BODY 



procedure cancel_Event 

( Info : in TAE . Tae_Wpt . Event_Context_Ptr ) is 
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--I PURPOSE: 

-- I EVENT HANDLER. Insert application specific information. 

Value : array (1..1) of String ( 1 . .TAE . Tae.Taeconf . STRINGS I ZE) ; 
Count : TAE.Taeint; 

begin -- cancel Jvent 

-- Begin default generated code 

TAE . Tae_Vm.Vm_Extract_Count ( Inf o . Parm_Ptr # Count) ; 
if Count > 0 then 

TAE.Tae_Vm. Vm_Extract_SVAL ( Inf o . Parm_Pt r , 1, Value (1)) ; 

else 
null ; 
end if; 

— End default generated code 

-- Begin generated code for Connection 

Connect_Panel (TAE . Tae_Wpt .WPT_ INVISIBLE) ; 

Panel_library . Connect_Panel (TAE . Tae_Wpt . WPT_VISIBLE) ; 

-- End generated code for Connection 
- -ADDED 

TAE .Tae_Wpt . Wpt_PanelReset ( Inf o . Panel_Id) ; 
end cancel^Event; 



ok_Event 



Subprogram SPEC & BODY 



procedure ok_Event , 

( Info : in TAE . Tae_Wpt . Event_Context_Ptr ) is 

--I PURPOSE: 

-- I EVENT HANDLER. Insert application specific information. 

Value : array (1..1) of String ( 1 .. TAE . Tae_Taeconf . STRINGS I ZE) ; 
Count : TAE.Taeint; 

begin -- ok_Event 

-- Begin default generated code 

TAE.Tae_Vm. Vm_Extract_Count ( Inf o . Parm_Ptr , Count) ; 
if Count > 0 then 
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TAE . Tae_Vm . Vm_Extract_SVAL ( Inf o . Parm_Ptr , 1, Value (1)) ; 

else 
null; 
end if; 



— End default generated code 

-- Begin generated code for Connection 

Connect_Panel ( TAE . Tae_Wpt . WPT_INVISIBLE ) ; 
Panel_ldelwarn . Connect_Pane 1 ( TAE . Tae_Wpt . WPT_VISIBLE) ; 

-- End generated code for Connection 
--ADDED 

TAE . Tae_Wpt . Wpt_PanelReset ( Info . Panel_Id) ; 
end ok_Event ; 



-- end EVENT HANDLERS 



Dispatch_Item 



-- Subprogram BODY 



procedure Dispatch_Item 

( User_Context_Ptr : in TAE . Tae_Wpt . Event_Context_Ptr ) is 



begin -- Di spatch_I tem 

if TAE . Tae_Misc . s_equal ("selection", User_Context_Ptr . Parm__Naine) then 
select ion_Event (User_Context_Ptr ) ; 
elsif TAE . Tae_Misc . s_equal ("cancel", User_Context_Ptr . Parm_Name) then 
cancel_Event (User_Context_Ptr ) ; 

elsif TAE . Tae_Misc . s_equal ("ok", User_Context_Pt r . Parm_Name ) then 
ok_Event (User_Context_Ptr ) ; 
end if; 

end Dispatch_Item; 
end Panel_lbdelete ; 
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F. PANEL LDELWARN PACKAGE 



1. PAN_LDELVVARN_S.A 

-- *** TAE Plus Code Generator version V5 . 1 
-- File : pan_ldelwarn_s . a 

__ Generated : May 21 16:12:31 1992 

__ Revised by : Dogan Ozdemir 



Panel_ldelwarn 



-- Package SPEC 









with TAE; 
with X_W i n dows ; 

package Panel_ldelwarn is 



PURPOSE: 

This package encapsulates the TAE Pius panel: ldelwarn 

These subprograms enable panel initialization, creation, destruction 
and event dispatching. For more advanced manipulation of the panel 
using the TAE package, the panel's Event_Context (Info) is provided 
It includes the Target and View (available after initialization) 
and the Panel_Id (available after creation) . 



REGENERATED : 

The following Workbench operations will cause regeneration of this 
file : 

The panel's name is changed (not title) 

For panel : 
ldelwarn 



Info : TAE . Tae_Wpt . Event _Con text _Ptr ; -- panel information 



Ini t iali ze_Panel 



Subprogram SPEC 



procedure In it ialize_Panel 

( Collection_Read -- TAE Collection read from 

: in TAE . Tae_Co . Col lect ion_Ptr ); -- resource file 

PURPOSE: 

--I This procedure initializes the Info. Target and Info. View for this 
panel 
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-- | EXCEPTIONS: 

--I TAE . UNINITIALIZED_PTR is raised if Col lect ion_Read not initialized 
--I TAE . Tae_Co . NO_SUCH_MEMBER is raised if the panel is not in 
-- I Collect ion_Read 



Create_Panel 



-- Subprogram SPEC 



procedure Create_Panel 
( Panel_ State 

: in TAE . Tae_Wpt . Wpt__Flags 

:= TAE . Tae_Wpt . WPT_PREFERRED ; 

Relat ive_Window 

: in X_Windows .Window 

:= X_Windows .Null_Window ); 



-- Flags sent to Wpt_NewPanel . 



-- Panel origin is offset from 
-- this X Window. Null_Window 
-- uses the root window. 




PURPOSE: 

This procedure creates this panel object in the specified Panel_State 
and stores the panel Id in Inf o . Panel_Id . 



EXCEPTIONS : 



--I TAE . UNINITIALIZED_PTR is raised if the panel is not initialized 
-- I TAE.TAE_FAIL is raised if the panel could not be created 



Connect_Panel 



-- Subprogram SPEC 



procedure Connect_Panel 
( Panel_State 

: in TAE . Tae_Wpt . Wpt_Flags 

:= TAE.Tae_Wpt.WPT_PREFERRED; 

Relat ive_Window 

: in X__Windows .Window 

:= X_Windows .Null_Window ); 



-- Panel origin is offset from 
-- this X Window. Null_Window 
-- uses the root window. 



--I PURPOSE: 

--I If this panel doesn’t exist, this procedure creates this panel object 
-- I in the specif iec Panel_State and stores the panel Id in 
-- I Inf o . Panel_Id . 

-- I If this panel does exist, it is set to the specified Panel_State. 
--I In this case, Relat ive_Window is ignored. 

--I EXCEPTIONS: 



174 



TAE . UNINITIALIZED_PTR is raised from Create_Panel if the panel is 
not initialized 

TAE . TAE_FAIL is raised from Create_Panel if the panel could not be 
created 

TAE . Tae_Wpt . BAD_STATE is raised if the panel exists and the 
Panel State is an invalid state 



Destroy_Panel 



-- Subprogram SPEC 



procedure Destroy_Panel ; 



PURPOSE: 



--I This procedure erases a panel from the screen and de-allocates the 
--I associated panel object (not the target and view) . 



EXCEPTIONS: 



--I TAE . Tae_Wpt . BAD_PANEL_ID is 
— I id. 



raised if 



Inf o . Panel_Id is an invalid 



NOTES : 



-- I Inf o . Panel_Id is set to TAE . NULL_PANEL_ID , and should not referenced 
-- I in any Wpt call until it is created again. 



Dispatch_Item 



-- Subprogram SPEC 



procedure Dispatch_Item 

( User_Context_Ptr -- Wpt Event Context for a PARM 

: in TAE . Tae_Wpt . Event_Context_Ptr ); -- event. 

--I PURPOSE: 

--I This procedure calls the Event Handler specified by User_Context_Ptr 

— I 

— I EXCEPTIONS: 

-- I Application-specific 

end Panel_ldelwarn ; 
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2. PAN LDELWARN B.A 



__ *** TAE Plus Code Generator version V5 . 1 
__ *** File : pan_ldelwarn__b.a 

-- *** Generated : May 21 16:12:31 1992 
__ *** Revised by : Dogan Ozdemir 

* Panel_ldelwarn -- Package BODY 

__ _ ★ 

with TAE; use TAE; 
with Text_IO; 
with Global; 
use Global, Text_IO; 



-- One "with" statement for each connected panel, 
with Panel_l ibrary ; 
with Panel_lbselect ; 
with Panel_lbdelete ; 

package body Panel_ldelwarn is 



NOTES : 

For each parameter that you have defined to be "event-generating" in 
this panel, there is an event handler procedure below. Each handler 
has a name that is a concatenation of the parameter name and "_Event" . 
Add application-dependent logic to each event handler. (As generated 
by the WorkBench, each event handler simply logs the occurrence of 
the event.) 



You may want to flag any changes you make to this file so that if 
you regenerate this file, you can more easily cut and paste your 
modifications back in. 



REGENERATED : 

The following WorkBench operations will cause regeneration of this 
file: 

The panel's name is changed (not title) 

For panel: 
ldelwarn 



--I The following WorkBench operations will also cause regeneration: 

--I An item is deleted 

-- I A new item is added to this panel 

--I An item's name is changed (not title) 

-- I An item's data type is changed 

--I An item's generates events flag is changed 

--I An item's valids changed (if item is type string and connected) 

--I An item's connection information changed 

--I For the panel items: 
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--I ok, 



cancel 



--ADDED 

package integer_inout is new Text_IO . integer_io ( integer ) ; 
use integer_inout ; 



Initialize_Panel -- Subprogram BODY 



procedure Init ialize_Panel 
( Collection_Read 

: in TAE. Tae_Co. Col lect ion_Ptr ) is 



begin -- Init ial ize_Panel 

Info := new TAE . Tae_Wpt . Even t_Cont ext ; 

Info . Collect ion := Col lect ion_Read ; 

TAE.Tae_Co.Co_Find ( Info . Collection, " ldelwarn_v" , Info. View) ; 
TAE . Tae_Co . Co_Find ( Info . Collect ion, " ldelwarn_t " , Info . Target ) ; 

exception 

when TAE . UNINITIALIZED_PTR => 

Text_IO . Put_Line ( " Panel_ldelwarn . Init ial ize_Panel : " 

& "Col lect ion_Read not initialized."); 
raise; 

when TAE . Tae_Co . NO_SUCH_MEMBER => 

Text_IO . Put_Line ( " Pane l_ldel warn . Init ial ize_Panel : " 

& "(View or Target) not in Collection."); 
raise ; 

end Init ialize_Panel ; 



Create_Panel 



-- Subprogram BODY 



procedure Create_Panel 
( Panel_State 

: in TAE . Tae_Wpt . Wpt_Flags 

: = TAE . Tae_Wp t . WPT__PREFERRED ; 

Relative_Window 

: in X_Windows .Window 
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:= X_Windows . Null_Window ) is 



begin -- Create_Panel 



if Info . Panel_Id = Tae. Null. 
TAE . Tae_Wpt . Wpt_NewPanel 
( Dummy 
Data_Vm 
V i ew_Vm 

Relat ive_Window 
User_Context 
Flags 
Panel_Id 



,Panel__Id then 



=> Info. Target, 

= > Info. View, 

=> Relat ive_Window, 
=> Info, 

=> Panel_State, 

=> Info . Panel_Id ) ; 



else 

Text_IO . Put_Line ("Panel (ldelwarn) is already displayed, 
end if; 



) ; 



exception 

when TAE . UNINITIALIZED__PTR => 

Text_IO . Put_Line ( " Panel_ldelwarn . Create_Panel : “ 

Sc "Panel was not initialized prior to creation."); 
raise ; 



when TAE.TAE_FAIL => 

Text_IO . Put_Line ( " Panel_ldelwarn . Create_Panel : 
Sc "Panel could not be created.") ; 
raise; 

end Create_Panel ; 



Connect_Panel 



Subprogram BODY 



procedure Connect_Panel 
( Panel_State 

: in TAE . Tae_Wpt .Wpt_F lags 

: = TAE . Tae_Wpt . WPT_PREFERRED ; 

Relat i ve_Window 

: in X_Windows .Window 

:= X_Windows . Null_Window ) is 



begin -- Connect_Panel 

if Info . Panel_Id = Tae . Nul l_Panel_Id then 
Create_Panel 
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{ Relative_Window 
Panel_State 



=> Relat ive_Window, 
=> Panel_State ) ; 



else 



TAE . Tae_Wpt . Wpt_Set PanelState ( Info . Panel_Id, Panel_State) ; 
end if; 

exception 

when TAE . Tae_Wpt . BAD_STATE => 

Text_IO . Put_Line ( " Panel_ldelwarn . Connect_Panel : " 

Sc "Invalid panel state."); 
raise ; 

end Connect^Panel; 



procedure Destroy_Panel is 
begin -- Destroy_Panel 

TAE . Tae_Wpt . Wpt_PanelErase ( Info . Panel_Id) ; 
except ion 

when TAE . Tae_Wpt . BAD_PANEL_ID => 

Text_IO . Put_Line ( " Panel_ldelwarn . Destroy_Panel : " 

Sc " Info . Panel_Id is an invalid id."); 
raise ; 

when TAE . Tae_Wpt . ERASE_NULL_PANEL => 

-- This panel has not been created yet, or has already been destroyed. 
-- Trap this exception , and do nothing, 
null; 

end Dest roy_Panel ; 

--+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 
-- begin EVENT HANDLERS 



Destroy_Panel 



Subprogram BODY 



ok_Event 



Subprogram SPEC Sc BODY 
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procedure ok_Event 

( Info : in TAE . Tae_Wpt . Event_Context_Ptr ) is 
--I PURPOSE: 

--I EVENT HANDLER. Insert application specific information. 

Value : array (1..1) of String ( 1 . . TAE . Tae_Taeconf . STRINGSIZE) ; 

Count : TAE.Taeint; 

- -ADDED 

N : Integer :=1; 

Dummy : Boolean ; 

Libcontent : file_type; 
len : integer : =1 ; 

begin -- ok_Event 

-- Begin default generated code 

TAE.Tae_Vm.Vm_Extract_Count ( Inf o . Parm_Ptr , Count) ; 
if Count > 0 then 

TAE . Tae_Vm . Vm_Extract_SVAL ( Inf o . Parm_Ptr , 1, Value(l)); 

else 
null; 
end if; 

--ADDED 

open (Libcontent , mode=>in_f ile , name=>" libcontent " ) ; 
get (Libcontent , lib_count , 1 ) ; 
global . strlen ( 1 ib_to_delete , N) ; 

global . systern_call (com£t"dl " Scl ib_to_delete ( 1 . .N) ) ; 

skip_line (Libcontent ) ; 

for I in l..lib_count loop 

get_line (Libcontent , lib_vec ( I ) .all, len) ; 
skip_line (Libcontent ) ; 
if lib_to_delete = lib__vec ( I ) .all then 
if I=lib_count then 

1 ib_vec ( I ) . al 1 : = " " ; 

end if; 

1 ib_count : =lib_count -1 ; 
for J in I . . ( lib_count ) loop 

get_ line (Libcontent , lib_vec ( J+l ) . all , len) ; 

skip_line (Libcontent ) ; 

lib_vec(J) .all : =lib_vec ( J+l) .all; 

1 ib_vec (J + l) .all :=" " ; 

end loop; 
exit ; 
end if; 
end loop; 

TAE . Tae_Wpt . Wpt_SetStr ingConstraints ( Pane 1_ lbs elect . Inf o . Panel_Id, "selec 
tion" , taeint (lib^count) , lib^vec) ; 
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TAE . Tae_Wpt . Wpt_SetStr ingConstraints ( Panel_lbdelete . Info . Panel_Id, " selec 
tion" , taeint ( lib_count ) , lib_vec) ; 

Dummy : =TAE . Tae_Wpt . Wpt_Pending ; 

reset (Libcontent , out_file) ; 
put (Libcontent, lib_count , 1) ; 
new_line (Libcontent ) ; 
for K in 1 . . ( lib_count+l) loop 

put_line (Libcontent , 1 ib_vec (K) . all ) ; 
end loop; 

close ( Libcontent ) ; 



-- End default generated code 

-- Begin generated code for Connection 

Connect_Panel (TAE . Tae_ Wpt . WPT_INVISIBLE) ; 
Panel_library . Connect_Panel (TAE .Tae_Wpt . WPT_VISIBLE) ; 

-- End generated code for Connection 

end ok_Event; 



cancel_Event 



-- Subprogram SPEC & BODY 



procedure cancel_Event 

( Info : in TAE . Tae_Wpt . Even t_Context_Ptr ) is 
--I PURPOSE: 

--I EVENT HANDLER. Insert application specific information. 

Value : array (1..1) of String ( 1 .. TAE . Tae_Taeconf . STRINGS I ZE) ; 
Count : TAE. Taeint; 

begin -- cancel_Event 

-- Begin default generated code 

TAE .Tae_Vm. Vm_Extract_Count ( Inf o . Parm_Ptr , Count) ; 
if Count > 0 then 

TAE . Tae_Vm . Vm_Extract_SVAL ( Inf o . Parm_Ptr , 1, Value (1) ) ; 

else 
nu 1 1 ; 
end if; 

-- End default generated code 
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-- Begin generated code for Connection 

Connect_Panel (TAE . Tae_Wpt . WPT_ INVISIBLE) ; 

Panel_l ibrary . Connect_Panel (TAE . Tae_Wpt . WPT_VISIBLE) ; 

-- End generated code for Connection 

end cancel_Event ; 



-- end EVENT HANDLERS 



Dispatch_Item 



-- Subprogram BODY 



procedure Dispatch_It em 

( User_Context_Ptr : in TAE . Tae_Wpt . Event_Context_Ptr ) is 



begin -- Dispatch_Item 

if TAE . Tae_Misc . s_equal ("ok", User_Context_Ptr . Parm_Name ) then 
ok_Event (User_Context_Ptr ) ; 

elsif TAE . Tae_Misc . s_equal ( " cancel", User_Context_Ptr . Parm_Name ) then 
cancel_Event (User_Context_Ptr ) ; 
end if; 

end Dispatch_Item; 
end Panel_ldelwarn ; 
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G. 



PANEL LBSELECT PACKAGE 



1. PAN LBSELECT S.A 

-- *** TAE Plus Code Generator version V5 . 1 
-- *** File : pan_lbselect_s . a 

__ *** Generated : May 21 16:12:31 1992 
-- *** Revised by : Dogan Ozdemir 

★ 

* Panel_lbselect -- Package SPEC 

★ 



with TAE; 
with X_Windows; 

package Panel_lbse lect is 



PURPOSE: 

This package encapsulates the TAE Plus panel: lbselect 

These subprograms enable panel initialization, creation, destruction, 
and event dispatching. For more advanced manipulation of the panel 
using the TAE package, the panel's Event_Context (Info) is provided. 
It includes the Target and View (available after initialization) 
and the Panel_Id (available after creation) . 

REGENERATED : 

The following Workbench operations will cause regeneration of this 
file : 

The panel's name is changed (not title) 

For panel: 
lbselect 



Info : TAE.Tae_Wpt . Event_Context_Ptr ; -- panel information 



Initialize_Panel 



-- Subprogram SPEC 



procedure Initialize_Panel 

( Collect ion_Read -- TAE Collection read from 

: in TAE.Tae_Co.Collection_Ptr ); resource file 

--I PURPOSE: 

--I This procedure initializes the Info. Target and Info. View for this 
panel 
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-- I EXCEPTIONS: 

-- I TAE . UNINITIALIZED_PTR is raised if Col lect ion_Read not initialized 
--I TAE . Tae_Co . NO_SUCH_MEMBER is raised if the panel is not in 
-- | Collect ion_Read 



Create_Panel 



Subprogram SPEC 



procedure Create_Panel 
( Panel_State 

: in TAE . Tae_Wpt . Wpt_Flags 

:= TAE . Tae_Wpt . WPT_PREFERRED ; 

Relat ive_Window 

: in X_Windows .Window 

:= X_Windows .Null_Window ); 



-- Flags sent to Wpt_NewPanel . 



-- Panel origin is offset from 
-- this X Window. Null__Window 
-- uses the root window. 




PURPOSE: 

This procedure creates this panel object in the specified Panel_State 
and stores the panel Id in Info . Panel_Id . 



EXCEPTIONS : 

TAE . UNINITIALIZED_PTR is raised if the panel is not initialized 
TAE.TAE_FAIL is raised if the panel could not be created 



Connect__Panel 



-- Subprogram SPEC 



procedure Connect_Panel 
( Panel_State 

: in TAE . Tae — Wpt . Wpt_F lags 

: = TAE . Tae_Wpt . WPT_PREFERRED ; 

Relative_Window 

: in X_Windows .Window 

:= X_Windows . Nul l_Window ); 



-- Panel origin is offset from 
-- this X Window. Null_Window 
-- uses the root window. 



--I PURPOSE: 

--I If this panel doesn't exist, this procedure creates this panel object 
--I in the specif iec Panel_State and stores the panel Id in 
-- I Info . Panel_Id . 

-- I If this panel does exist, it is set to the specified Panels State. 
--I In this case, Relat ive_Window is ignored. 

--I EXCEPTIONS: 
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--I TAE.UNINITIALIZED_PTR is raised from Create_Panel if the panel is 
--I not initialized 

-- I TAE.TAE_FAIL is raised from Create_Panel if the panel could not be 



created 

TAE . Tae_Wpt . BAD_STATE 
Panel State is an 



is raised if 
invalid state 



the panel exists and the 



Destroy_Panel 



-- Subprogram SPEC 



procedure Destroy_Panel ; 



-- | PURPOSE: 

-- I This procedure erases a panel from the screen and de-allocates the 
--I associated panel object (not the target and view) . 



-- I EXCEPTIONS: 

--I TAE . Tae_Wpt . BAD_PANEL_ID is raised if Inf o . Panel_Id is an invalid 
id. 



NOTES : 



-- I Inf o . Panel_Id is set to TAE . NULL_PANEL_ID, and should not referenced 
--! in any Wpt call until it is created again. 



Dispatch_Item 



Subprogram SPEC 



procedure Di spat ch_I tern 

( User_Context_Ptr -- Wpt Event Context for a PARM 

: in TAE . Tae_Wpt . Event_Context_Ptr ); -- event. 

--I PURPOSE: 

--I This procedure calls the Event Handler specified by User_Context_Ptr 
--I 

--I EXCEPTIONS: 

-- I Application-specific 

end Panel_lbselect ; 
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2. PAN LBSELECT B.A 



__ *** TAE Plus Code Generator version V5 . 1 
__ *** File : pan_lbselect_b . a 

-- *** Generated : May 21 16:12:31 1992 
-- *** Revised by : Dogan Ozdemir 



* Panel_lbselect -- Package BODY 

★ 

with TAE; use TAE; 
with Text_IO; 
with Global; 
use Global , Text_IO ; 



-- One "with” statement for each connected panel, 
with Panel_l ibrary ; 
with Pan el_ma inmenu; 

package body Panel_lbselect is 



NOTES : 

For each parameter that you have defined to be "event-generating" in 
this panel, there is an event handler procedure below. Each handler 
has a name that is a concatenation of the parameter name and ”__Event". 
Add application-dependent logic to each event handler. (As generated 
by the WorkBench, each event handler simply logs the occurrence of 
the event . ) 



--I You may want to flag any changes you make to this file so that if 
-- I you regenerate this file, you can more easily cut and paste your 
--I modifications back in. 



REGENERATED : 

The following WorkBench operations will cause regeneration of this 
file: 

The panel's name is changed (not title) 

For panel: 
lbselect 



The following WorkBench operations will also cause regeneration: 

An item is deleted 

A new item is added to this panel 

An item's name is changed (not title) 

An item's data type is changed 

An item's generates events flag is changed 

An item's valids changed (if item is type string and connected) 
An item's connection information changed 
For the panel items: 

selection, cancel, ok 
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--ADDED 

libr :String (1..10):= (others=>* '); 

package integer_inout is new Text_IO . integer_io ( integer ) ; 
use integer_inout ; 



Init iali ze_Panel 



Subprogram BODY 



procedure Init ialize_Panel 
( Collection_Read 

: in TAE . Tae_Co . Collect ion_Ptr ) is 



begin -- Init ialize_Panel 

Info := new TAE . Tae_Wpt . Event_Context ; 

Info . Collect ion : = Collect ion_Read ; 

TAE . Tae_Co . Co_F ind ( Inf o . Col lection, " lbselect_v" , Info. View); 
TAE . Tae_Co . Co_Find ( Info . Collection, " lbselect_t ", Info . Target ) ; 

exception 

when TAE . UNINITIALIZED_PTR => 

Text_IO . Put_Line ( " Pane l_lbselect . Initialize_Panel : " 

Sc "Collect ion_Read not initialized."); 
raise; 

when TAE . Tae_Co . NO_SUCH_MEMBER => 

Text_IO . Put_Line ( " Panel_lbselect . Ini tialize_Panel : " 

Sc "(View or Target) not in Collection."); 
raise ; 

end Init ialize_Panel ; 



Create_Panel 



Subprogram BODY 



procedure Create_Panel 
( Panel_State 

: in TAE.Tae_Wpt .Wpt_Flags 

:= TAE . Tae_Wp t . WPT_PREFERRED ; 

R e 1 a t i ve_W i ndo w 

: in X_Windows .Window 
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:= X_Windows . Nul l__Window ) is 



begin -- Create_Panel 



if Inf o . Panel_Id = Tae.Null 
TAE . Tae_Wpt . Wpt_NewPanel 
( Dummy 
Data_Vm 
V i ew_Vm 

Re 1 a t i ve_W i ndow 
User_Context 
Flags 
Panel_Id 



,Panel_Id then 



n H 

— ^ / 

=> Info. Target, 

=> Info. View, 

=> Relat ive_Window, 
=> Info, 

-> Panel_State, 

=> Inf o . Panel_Id ); 



else 

Text_IO . Put_Line ("Panel (lbselect) is already 
end if; 



displayed 



) ; 



exception 

when TAE . UNINITIALIZED_PTR => 

Text_IO . Put_Line ( " Panel_lbselect . Create_Panel : " 

Sc "Panel was not initialized prior to creation."); 
raise; 



when TAE . TAE_FAIL => 

Text_IO . Put_Line ( " Panel_lbselect . Create_Panel : 
Sc "Panel could not be created."); 
raise ; 



end Create_Panel; 



Connect_Panel 



-- Subprogram BODY 



procedure Connect_Panel 
( Panel_State 

: in TAE . Tae_Wpt . Wpt_Flags 

: = TAE . Tae_Wpt . WPT_PREFERRED ; 

Relat ive_Window 

: in X_Windows .Window 

: = X_Windows .Null_Window ) is 



--ADDED 

Libcontent : file_type; 
len : integer :=1; 

Dummy : Boolean; 
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begin -- Connect_Panel 



if Inf o . Panel_Id = Tae . Nul l_Panel_Id then 
Create_Panel 

( Relat ive_ Window => Relat ive_Window, 

Panel_State => Panel_State ) ; 

else 

TAE . Tae_Wpt . Wpt_Set PanelState ( Inf o . Panel_Id, Panel_State) ; 

--ADDED 

open ( Libcontent , mode=>in_f ile , name=> " 1 ibcontent " ) ; 
get (Libcontent, lib_count, 1) ; 
skip_line (Libcontent ) ; 
for I in l..lib_count loop 
get_line (Libcontent , lib_vec(I) .all, len) ; 
skip_line ( Libcontent ) ; 
end loop; 

TAE.Tae_Wpt . Wpt_SetStr ingConstraints ( Info . Panel_Id, "selection” , taeint ( li 
b_count) , lib_vec) ; 

Dummy : =TAE . Tae_Wpt . Wpt_Pending ; 
end if; 

exception 

when TAE . Tae_Wpt . BAD_STATE => 

Text_IO . Put_Line ( " Panel_lbselect . Connect_Panel : " 

Sc "Invalid panel state."); 
raise; 

end Connect_Panel ; 



Des troy_Panel 



-- Subprogram BODY 



procedure Destroy_Panel is 



begin -- Destroy_Panel 

TAE .Tae_Wpt . Wpt_PanelErase ( Info . Panel_Id) ; 
exception 

when TAE . Tae_Wpt . BAD_PANEL_ID => 

Text_IO . Put_Line ( " Panel_lbselect . Destroy_Panel : 
Sc " Inf o . Panel_Id is an invalid id."); 
raise; 
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when TAE.Tae_Wpt . ERAS E_NULL_ PANEL => 

-- This panel has not been created yet, or has already been destroyed. 
-- Trap this exception and do nothing, 
null; 

end Destroy_Panel ; 

--+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 
-- begin EVENT HANDLERS 



select ion_Event 



-- Subprogram SPEC Sc BODY 



procedure select ion_Event 

( Info : in TAE . Tae_Wpt . Event_Context_Ptr ) is 

--I PURPOSE: 

--I EVENT HANDLER. Insert application specific information. 

Value : array (1..1) of String ( 1 .. TAE . Tae_Taeconf . STRINGS I ZE) ; 
Count : TAE . Taeint ; 

begin -- select ion_Event 

-- Begin default generated code 

TAE . Tae_Vm. Vm_Extract_Count ( Inf o . Parm_Pt r , Count) ; 
if Count > 0 then 

TAE . Tae_Vm . Vm_Extract_SVAL ( Inf o . Parm_Ptr , 1, Value(l)); 

else 
null; 

end if; , 

--ADDED 

libr ( 1 . .10) : =Value ( 1 ) (1. .10) ; 

-- End default generated code 
end select ion_Event ; 



cancel_Event 



Subprogram SPEC Sc BODY 



procedure cancel_Event 
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( Info : in TAE . Tae_Wpt . Event_Context_Ptr ) is 
--I PURPOSE: 

--I EVENT HANDLER. Insert application specific information. 

Value : array (1..1) of String ( 1 . . TAE . Tae_Taeconf . STRINGSIZE) ; 
Count : TAE.Taeint; 

begin -- cancel_Event 

-- Begin default generated code 

TAE . Tae_Vm.Vm__Ex tract _Count ( Info . Parm_Ptr , Count) ; 
if Count > 0 then 

TAE . Tae_Vm . Vm_Extract_SVAL ( Info . Parm_Ptr , 1, Value (1)) ; 

else 
null; 
end if; 

-- End default generated code 

-- Begin generated code for Connection 

Connect.Panel (TAE . Tae_Wpt . WPT_INVISIBLE) ; 

Panel_library . Connect_Panel (TAE . Tae_Wpt . WPT_VISIBLE) ; 

-- End generated code for Connection 
--ADDED 

TAE . Tae_Wpt . Wpt_PanelReset ( Info . Panel_Id) ; 
end cancel_Event ; 



ok_Event 



Subprogram SPEC & BODY 



procedure ok_Event 

( Info : in TAE . Tae_Wpt . Event_Context_ Pt r ) is 
--I PURPOSE: 

--I EVENT HANDLER. Insert application specific information. 

Value : array (1..1) of String ( 1 .. TAE . Tae_Taeconf . STRINGSIZE ) ; 
Count : TAE.Taeint; 

begin -- ok_Event 

-- Begin default generated code 
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TAE . Tae_Vm . Vm_Extract_Count ( Inf o . Parm_Ptr , Count); 
if Count > 0 then 

TAE . Tae_Vm . Vm_Ext ract_SVAL ( Inf o . Parm_Ptr , 1 , Value (1) ) ; 

else 
null; 
end if; 

--ADDED 

library := libr; 



-- End default generated code 

-- Begin generated code for Connection 

Connect.Panel (TAE . Tae_Wpt . WPT_INVISIBLE ) ; 
Panel_mainmenu . Connect_Panel (TAE.Tae_Wpt . WPT_VISIBLE ) ; 

-- End generated code for Connection 
--ADDED 

TAE .Tae_Wpt . Wpt_PanelReset ( Info . Panel_Id) ; 
end ok_Event ; 



-- end EVENT HANDLERS 



Di spa tch_I tem 



-- Subprogram BODY 



procedure Dispatch_Item 

( User_Context_Ptr : in TAE . Tae_Wpt . Even t_Context_Ptr ) is 



begin -- Dispatch_Item 

if TAE . Tae_Misc . s_equal ("selection", User_Context_Ptr . Parm_Name ) then 
select ion_Event (User_Context_Ptr ) ; 
elsif TAE . Tae_Misc . s_equal ("cancel", User_Context_Ptr . Parm_Name ) then 
cancel_Event (User_Context_Ptr ) ; 

elsif TAE .Tae_Misc . s_equal ("ok", User_Context_Ptr . Parm_Name ) then 
ok_Event (User_Context_Ptr ) ; 
end if; 

end Dispatch_Item; 
end Panel_lbselect ; 
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H. 



PANEL MAINMENU PACKAGE 



1. PAN_MAINMENU_S.A 

-- ★ ** TAE plus Code Generator version V5 . 1 
-- *** File : pan_mainmenu_ s . a 

-- *** Generated : May 21 16:12:31 1992 
-- *** Revised by : Dogan Ozdemir 

★ 

* Pane l_ma inmenu -- Package SPEC 

★ 



with TAE; 
with X_Windows; 

package Pane l_ma inmenu is 



PURPOSE: 

This package encapsulates the TAE Plus panel: mainmenu 

These subprograms enable panel initialization, creation, destruction 
and event dispatching. For more advanced manipulation of the panel 
using the TAE package, the panel's Event_Context (Info) is provided 
It includes the Target and View (available after initialization) 
and the Panel_Id (available after creation) . 

REGENERATED : 

The following Workbench operations will cause regeneration of this 
f ile : 

The panel's name is changed (not title) 

For panel: 
mainmenu 



Info : TAE . Tae_Wpt . Event_Context_Pt r ; -- panel information 



In it ialize_Panel 



-- Subprogram SPEC 



procedure Init ialize_ Panel 

( Collect ion_Read -- TAE Collection read from 

: in TAE .Tae__Co .Collect ion_Ptr ); -- resource file 

--I PURPOSE: 

-- I This procedure initializes the Info. Target and Info. View for this 
panel 
--I 
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-- | EXCEPTIONS: 

-- I TAE . UNINITIALIZED_PTR is raised if Col lect ion_Read not initialized 
-- I TAE . Tae_ Co . NO_SUCH_MEMBER is raised if the panel is not in 
-- | Collect ion_ Read 



Create_ Panel 



-- Subprogram SPEC 



procedure Create^ Panel 
( Pane Instate 

: in TAE . Tae_Wpt . Wpt_Flags 

: = TAE . Tae_Wpt . WPT_PREFERRED ; 

Relat ive_Window 

: in X_Windows .Window 

:= X_Windows . Nul l_Window ); 



-- Flags sent to Wpt_NewPanel . 



-- Panel origin is offset from 
-- this X Window. Null_ Window 
-- uses the root window. 



PURPOSE: 

This procedure creates this panel object in the specified Panel_State 
and stores the panel Id in Inf o . Panel_Id . 



EXCEPTIONS : 

TAE . UNINITIALIZED_PTR is raised if the panel is not initialized 
TAE.TAE_FAIL is raised if the panel could not be created 



Connect^ Panel 



-- Subprogram SPEC 



procedure Connect^ Panel 
( Panels State 

: in TAE . Tae_Wpt . Wpt_Flags 

: = TAE . Tae_Wpt . WPT_PREFERRED ; 

Relat ive J Window 

: in X_Windows .Window 

:= X_Windows . Nul 1_ Window ); 



-- Panel origin is offset from 
-- this X Window. Null_Window 
-- uses the root window. 



--! PURPOSE: 

-- I If this panel doesn’t exist, this procedure creates this panel object 
--I in the specif iec Panel_State and stores the panel Id in 
-- I Info . Panels Id . 

--I If this panel does exist, it is set to the specified Panel_State. 
--I In this case, Relat ive_ Window is ignored. 

--I EXCEPTIONS: 
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-- I TAE . UNINITIALIZED_PTR is raised from Create_Panel if the panel is 
-- I not initialized 

-- I TAE.TAE_FAIL is raised from Create_Panel if the panel could not be 



created 

TAE . Tae_Wpt . BAD_STATE is raised if 
Panel_State is an invalid state 



the panel exists and the 



Destroy_Panel 



-- Subprogram SPEC 



procedure Destroy_Panel ; 



--I PURPOSE: 

--| This procedure erases a panel from the screen and de-allocates the 
-- I associated panel object (not the target and view). 



--I EXCEPTIONS: 

--I TAE . Tae_Wpt . BAD_ PANEL__ID is raised if Inf o . Panel__Id is an invalid 
id. 



NOTES : 



--I Inf o . Panel_Id is set to TAE . NUL.L_PANEL._ID, and should not referenced 
--I in any Wpt call until it is created again. 



Dispatch_Item 



-- Subprogram SPEC 



procedure Di spa tch_I tern 

( User_Context_Ptr -- Wpt Event Context for a PARM 

in TAE . Tae_Wpt . Event_Context_Ptr ); -- event. 

--I PURPOSE: 

--I This procedure calls the Event Handler specified by User_Context_Ptr 

--I 

--I EXCEPTIONS: 

--I Application-specific 

end Pane l_ma inmenu; 
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2. PAN MAINMENU B.A 



__ *** TAE Plus Code Generator version V5 . 1 
-- *** File : pan_mainmenu_b . a 

__ *** Generated : May 21 16:12:31 1992 
-- *** Revised by : Dogan Ozdemir 



* Pane l_ma inmenu -- Package BODY 

* 

with TAE; use TAE; 
with Text_IO; 
with Global; 
use Text_IO, Global ; 

-- One "with' 1 statement for each connected panel. 

with Panel_lbselect ; 

with Panel_compsel ; 

with Panel_addf ile ; 

with Panel_keyword; 

with Panel_query; 

package body Pane l_ma inmenu is 



NOTES : 

For each parameter that you have defined to be "event-generating" in 
this panel, there is an event handler procedure below. Each handler 
has a name that is a concatenation of the parameter name and "_Event" . 
Add application-dependent logic to each event handler. (As generated 
by the WorkBench, each event handler simply logs the occurrence of 
the event . ) 



You may want to flag any changes you make to this file so that if 
you regenerate this file, you can more easily cut and paste your 
modifications back in. 



REGENERATED : 

The following WorkBench operations will cause regeneration of this 
file: 

The panel's name is changed (not title) 

For panel: 
mainmenu 



The 



following WorkBench operations will also cause regeneration: 

An item is deleted 

A new item is added to this panel 

An item's name is changed (not title) 

An item's data type is changed 

An item's generates events flag is changed 

An item's valids changed (if item is type string and connected) 
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component , 



- - I An item's 
--I For the panel 
-- I cancel , 

-- | query 



connect ion 
items : 

help, 



information changed 
browse , 



--ADDED 
operator_f ile 
tvpe_f ile 
operator_list 
type_list 
Dummy 



file_type; 
f ile_type ; 

String ( 1 . . 13 ) : = " opera tor_list " ; 
String ( 1 . . 9 ) : = " type_list " ; 
Boolean ; 



In it ialize_Panel 



-- Subprogram BODY 



procedure Init ialize_Panel 
( Collection_Read 

: in TAE . Tae_Co . Collect ion_Ptr ) is 



begin -- Init ialize_Panel 

Info := new TAE . Tae_Wpt . Even t_Con text ; 

Inf o . Collect ion := Collect ion_Read ; 

TAE . Tae_Co . Co_Find ( Inf o . Col lect ion , "mainmenu_v" , Info. View); 
TAE . Tae_Co . Co_F ind ( Inf o . Collect ion , "mainmenu_t " , Inf o . Target ) ; 

exception 

when TAE . UNINITIALIZED_PTR => 

Text_IO. Put_Line ( " Pane l_ma inmenu . Init ialize_Panel : " 

Sc. "Collect ion_Read not initialized."); 
raise; 

when TAE.Tae_Co.NO_SUCH_MEMBER => 

Text_IO . Put_Line ( " Pane l_ma inmenu . Init ial ize_Panel : " 

Sc "(View or Target) not in Collection."); 
raise ; 

end Init ialize_Panel ; 



Create_Panel 



-- Subprogram BODY 



procedure Create_Panel 
( Panel_State 
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: in TAE . Tae_Wpt . Wpt_Flags 

: = TAE . Tae_Wpt . WPT_PREFERRED ; 

Relat ive_Window 

: in X_Windows .Window 

:= X_Windows . Nul l_Window ) is 



begin -- Create_Panel 



if Inf o . Panel_Id = Tae . Nul l_Panel_Id then 



TAE.Tae_Wpt • Wpt_NewPanel 
( Dummy 
Data_Vm 
V i ew_Vm 

Relative_Window 
User_Context 
Flags 
Panel Id 



=> Info. Target, 

=> Info. View, 

=> Relat ive_Window, 
=> Info, 

=> Panel_State, 

=> Inf o . Panel_Id ); 



else 

Text_IO . Put_Line ("Panel (mainmenu) is already displayed, 
end if; 



) ? 



exception 

when TAE . UNINITIALIZED_PTR => 

Text_IO . Put_Line ( " Pane l_ma inmenu . Create_Panel : " 

& "Panel was not initialized prior to creation. ") ; 
raise ; 



when TAE . TAE_FAI L => 

Text_IO . Put_Line ( " Pane l_ma inmenu .Create_Panel : 
Sc "Panel could not be created."); 
raise; 



end Create_Panel ; 



Connect_Panel 



-- Subprogram BODY 



procedure Connect_Panel 
( Panel_State 

: in TAE . Tae_Wpt . Wpt_Flags 

:= TAE . Tae_Wpt . WPT_PREFERRED ; 

Relat ive_Window 

: in X_Windows .Window 

:= X_Windows . Nul l_Window ) is 
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begin -- Connect_Panel 



if Info. Panel_Id = 



Tae . Null_Panel_Id then 



Create_Panel 



( Relat ive_Window 
Panel_State 



=> Relat ive_Window, 
=> Panel_State ) ; 



else 



TAE . Tae__Wpt . Wpt_Set PanelState ( Inf o . Panel_Id , Panel_State) ; 
end if; 

exception 

when TAE . Tae_Wpt . BAD_STATE => 

Text_IO . Put_Line ( " Panel_mainmenu . Connect_Panel : " 

& "Invalid panel state."); 
raise; 

end Connect_Panel ; 



procedure Destroy_Panel is 

begin -- Destroy_Panel 

TAE . Tae_Wpt . Wpt_PanelErase ( Info . Panel_Id) ; 
exception 

when TAE . Tae_Wpt . BAD_PANEL_ID => 

Text_IO . Put_Line ( " Pane l_mai nine nu . Destroy_Panel : " 

Sc " Info . Panel_Id is a,n invalid id . " ) ; 
raise ; 

when TAE . Tae_Wpt . ERAS E_NULL_ PANEL => 

-- This panel has not been created yet, or has already been destroyed. 
-- Trap this exception and do nothing, 
null; 

end Destroy_Panel ; 



--+++++++++++++++ ++++++ ++++++++++++++++++++++++++++++++++++++++++++++ 
-- begin EVENT HANDLERS 



Destroy_Panel 



Subprogram BODY 
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cancel_Event 



-- Subprogram SPEC & BODY 



procedure cancel_Event 

( Info : in TAE . Tae_Wpt . Event_Context_Ptr ) is 
-- ! PURPOSE: 

--I EVENT HANDLER. Insert application specific information. 

Value : array (1..1) of String ( 1 . . TAE . Tae_Taeconf . STRINGSIZE ) ; 
Count : TAE . Taeint ; 

begin -- cancel_Event 

-- Begin default generated code 

TAE . Tae_Vm . Vm_Extract_Count ( Inf o . Parm_Ptr , Count) ; 
if Count > 0 then 

TAE . Tae_Vm . Vm_Ext ract_SVAL ( Inf o . Parm_Ptr , 1, Valued) ); 
end if; 

-- End default generated code 

-- Begin generated code for Connection 

Connect^Panel (TAE . Tae_Wpt . WPT_INVISIBLE) ; 

Panel_lbselect . Connect_Panel (TAE.Tae_Wpt . WPT_VISIBLE) ; 

-- End generated code for Connection 

end cancel_Event; 



browse_Event 



-- Subprogram SPEC & BODY 



procedure browse^Event 

( Info : in TAE .Tae_Wpt . Event_Context_Ptr ) is 
— I PURPOSE: 

--I EVENT HANDLER. Insert application specific information. 

Value : array (1..1) of String ( 1 . . TAE .Tae_Taeconf . STRINGSIZE) ; 
Count : TAE. Taeint; 

N : integer :=1; 

begin -- browse^Event 
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-- Begin default generated code 

TAE . Tae_Vm. Vm_Extract_Count ( Inf o . Parm_Pt r , Count); 
if Count > 0 then 

TAE . Tae_Vm. Vm_Extract_SVAL ( Inf o . Parm_Ptr , 1, Value (1) ) ; 

end if; 

-- End default generated code 
-- Begin generated code for Connection 

strlen ( library , N) ; 

if TAE . Tae_Misc . s_equal ( Value (1), "Types") then 

system_call (com&“ tl "&library { 1 . .N) &" " & " type_list " ) ; 
list_components ( type_ f ile, type_list , f ile_vec, num_of_comp) ; 

TAE . Tae_Wpt . Wpt_SetStr ingConstraints ( Panel_compsel . Info . Panel_Id, " compse 
1" , taeint (num_of_comp) , f ile_vec) ; 

Dummy : =TAE . Tae_Wpt . Wpt_Pending ; 
system_call ( " rm type_list"); 

Connect.Panel (TAE . Tae_Wpt . WPT_INVISIBLE) ; 

Panel_compsel . Connect_Panel (TAE . Tae_Wpt . WPT_VISIBLE ) ; 

elsif TAE . Tae_Misc . s_equal (Value (1), "Operators") then 

system_call (com&"ol "^library (1 . .N) &" " & " operator^ list " ) ; 

list_components (operator_f ile, operator_list , f ile_vec, num_of_comp) ; 

TAE .Tae_Wpt . Wpt_SetStr ingConstraints ( Panel_compsel . Info . Panel_Id, "compse 
1 " , taeint ( num_of_comp) , f ile_vec) ; 

Dummy : =TAE . Tae_Wpt . Wpt_Pending ; 
system_call ( " rm operator_list " ) ; 

Connect_Panel ( TAE . Tae_Wp t . WPT_INVIS IBLE ) ; 

Panels compsel . Connect_Panel (TAE . Tae_Wpt .WPT_VIS IBLE) ; 
end if; 

-- End generated code for Connection 
end browse_Event ; , 



component_Event 



-- Subprogram SPEC & BODY 



procedure component_Event 

( Info : in TAE . Tae_Wpt . Event_Context_Ptr ) is 

--I PURPOSE: 

--I EVENT HANDLER. Insert application specific information. 

Value : array (1..1) of String ( 1 . . TAE . Tae_Taeconf . STRINGSIZE) ; 
Count : TAE. Taeint; 
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I , C : Integer :=1; 

D : Integer : =0 ; 

ls_file :file_type; 

f ile_name : String ( 1 .. 7 ) := "ls__file"; 

current : String ( 1 . . 80 ) : = (others=> 1 ' ) ; 

number : Integer : =1 ; 

Dummy : Boolean; 

begin -- component_Event 

-- Begin default generated code 

TAE . Tae_Vm.Vm_Ex tract _Count ( Inf o . Parm_Ptr , Count); 
if Count > 0 then 

TAE . Tae_Vm . Vm_Extract__SVAL ( Inf o . Parm_Ptr , 1, Valued) ); 

end if; 

-- End default generated code 
-- Begin generated code for Connection 
if TAE . Tae_Misc . s_equal ( Value (1), "Add") then null; 
system_call ( "pwd > directory_f ile " ) ; 

read_directory (directory_f ile , directory_f ile — name, Directory) ; 
strlen ( Directory , D) ; 
loop 

if Directory (I) = ' /' then 

current_directory ( cur_dir_index) (1..C+1) : =current ( 1 . . C- 

1 )&"/ M ; 

cur_dir_index : =cur_dir_index+ 1 ; 

C : = 1 ; 

else 

current (C) : =Di rectory ( I) ; 

C : =C+ 1 ; 
end i f ; 

I : = I + 1 ; 

if I=D+ 1 then exit; 
end if; 
end loop; 

cur rent_di rectory (cur_dir_index) ( 1 . . C+l ) : =current ( 1 . . C-l ) &" / " ; 
if D>27 then 

directory _array := Directory ( (D-2 6 ).. D) ; 
else 

directory _array : = Directory (1. .27) ; 
end if; 

system_call ( " Is >F “ ^Directory ( 1 . . D) & " > "&"ls_file"); 

1 is t_di rectory ( ls_f ile, f ile_name, f ile_vec, number) ; 



TAE . Tae_Wpt . Wpt_SetStr ingCons traints ( Pane l_addf ile . Info . Panel_Id, " selpsd 
1 " , taeint (number) , f ile_vec) ; 

TAE . Tae_Wpt . Wpt_SetStringConstraints ( Panel_addf i le . Info . Panel_Id, " selspe 
c" , taeint (number) , f ile_vec) ; 
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TAE . Tae_Wpt . Wpt_SetStr ingConstraints ( Panel_addf i le . Info . Panel_Id, " selbod 
y " , taeint (number) , f ile_vec) ; 

TAE . Tae__Vm. Vm_SetS t ring ( Panel_addf i le . Info. View, "psdldirectory " , 1, direct 
ory_array , TAE . Tae_Vm. P_UPDATE) ; 

TAE . Tae_Wpt .Wpt_ViewUpdate ( Panel_addf i le . Info . Panel_Id, " psdldirectory" , P 
anel_addf ile . Info .View, "psdldirectory" ) ; 

TAE . Tae_Vm. Vm_SetString ( Panel_addf i le . Info .View, " specdirectory " , 1 , direct 
ory_ar r ay , TAE . Tae_ Vm . P_UPDATE ) ; 

TAE .Tae_Wpt . Wpt_ViewUpdate ( Panel_addf i le . Info . Panel_Id, " specdirectory" , P 
anel_addf ile . Info .View, "specdirectory" ) ; 

TAE . Tae_Vm. Vm_SetString { Panel_addf i le . Inf o .View, "bodydi rectory" , 1 , direct 
ory_array , TAE . Tae_Vm . P_UPDATE) ; 

TAE . Tae_Wpt . Wpt_ViewUpdate ( Pane l_addf ile . Info . Panel_Id, "bodydi rectory" , P 
anel_addf ile . Info .View, "bodydirectory " ) ; 

Dummy : =TAE . Tae_Wpt . Wpt_Pending ; 

system_call ( " rm ls_file" ); 
system_cal 1 ( " rm directory_f ile") ; 

Connect_Panel (TAE . Tae_Wpt . WPT_INVISIBLE) ; 

Pane l_addf ile . Connect_Panel (TAE . Tae_Wpt . WPT_VISIBLE) ; 
Component_add : =TRUE ; 

elsif TAE . Tae_Misc . s_equal (Value (1), "Update") then null; 
Connect_Panel (TAE .Tae^Wpt . WPT_INVISIBLE) ; 

Panel_addf ile . Connect__Panel (TAE .Tae_Wpt . WPT_VISIBLE) ; 
Component_update : =TRUE ; 

end if; 

-- End generated code for Connection 
end component_Event ; 



query _Event 



-- Subprogram SPEC Sc BODY 



procedure query_Event 

( Info : in TAE . Tae_Wpt . Event _Con text _Ptr ) is 

--! PURPOSE: 

--I EVENT HANDLER. Insert application specific information. 



203 



Value : array (1..1) of String ( 1 .. TAE . Tae_Taeconf . STRINGS IZE ) ; 
Count : TAE.Taeint; 

Dummy : Boolean ; 

D : Integer :=0; 

I , C : Integer : =1 ; 
number : integer :=1; 

current : String (1. .80) := (others=>' ' ); 
ls_f i le : f i le_type ; 

file_name: String(1..7) := "ls_file"; 
begin -- query_Event 

-- Begin default generated code 

TAE . Tae_Vm. Vm_Ext ract_Count ( Inf o . Parm_Ptr , Count); 
if Count > 0 then 

TAE . Tae_Vm. Vm_Extract_SVAL ( Inf o . Parm_Ptr , 1, Value(l)); 

end if; 

-- End default generated code 

-- Begin generated code for Connection 

if TAE . Tae_Misc . s_equal (Valued), "Keyword") then 
Connect_Panel ( TAE . Tae_Wpt . WPT_INVIS IBLE ) ; 

Pane l_keyword . Connec t_Pane 1 ( TAE . Tae_Wpt . WPT_VIS IBLE ) ; 

elsif TAE . Tae_Misc . s_equal (Value (1), "PSDL") then 
strlen ( path, D) ; 

Directory ( 1 . . D) : = path ( 1 . . D ) ; 
loop 

if Directory (I) = '/' then 

current_directory ( cur_dir_index) (1. .C+l) : =current ( 1 . .C 

1 )&"/ ■; 

cur_dir_index : =cur_dir_index+ 1 ; 

C : = 1 ; 

else 

current (C ) : =Di rectory ( I ) ; 

C : =C + 1 ; 
end if; 

I : = I + 1 ; 

if I=D+1 then exit; 
end if; 
end loop; 

current__di rectory ( cur_dir_index) ( 1 . . C+l ) : =current ( 1 . . C-l ) & " / 
if D>27 then 

directory _array := Directory ( (D-26) . .D) ; 

else 

directory_array := Directory ( 1 .. 27 ) ; 
end if; 

system_cal 1 ( " Is -F " ^Directory ( 1 . . D) & " > " & " ls_f i le " ) ; 
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list_directory ( ls_f ile , file_name, file_vec, number) ; 

TAE . Tae_Wpt . Wpt_SetSt r ingCons traints ( Panel_query . Info. Panel_Id / "psdlsele 
ct" , taeint (number) , f ile_vec) ; 

TAE . Tae_Vm . Vm_Set String ( Panel_query . Inf o .View, "directory label " , 1 , directo 
ry_ar ray , TAE . Tae_Vm . P_UPDATE ) ; 

TAE . Tae_Wpt . Wpt_ViewUpdate ( Panel_query . Info . Panel_Id / " directory label " , Pa 
nel_query .Info .View, "directory label " ) ; 

Dummy : =TAE . Tae_Wpt . Wpt_Pending ; 
system_cal 1 ( " rm ls_file" ); 

Connect_Panel (TAE . Tae_Wpt .WPT — INVISIBLE) ; 

Panel_query . Connect_Panel (TAE .Tae_Wpt . WPT_VISIBLE) ; 

end if; 

-- End generated code for Connection 
end query_Event; 

-- end EVENT HANDLERS 



Dispatch_Item 



Subprogram BODY 



procedure Dispatch_Item 

( User_Context_Ptr : in TAE . Tae_Wpt . Event_Context_Ptr ) is 
begin -- Dispatch_Item 

if TAE . Tae_Misc . s_equal ("cancel", User_Context_Ptr . Parm_Name ) then 
cancel_Event (User_Context_Ptr ) ; 

elsif TAE . Tae_Misc . s_equal ("browse", User_Context_Ptr . Parm_Name) then 
browse_Event (User_Context_Ptr ) ; 

elsif TAE . Tae_Misc . s — equal ("component", User_Context_Ptr . Parm_Name ) 
then 

component_Event (User_Context_Ptr ) ; 
elsif TAE . Tae_Misc . s_equal ("query", User_Context_Ptr . Parm_Name ) then 
query_Event (User_Context_Ptr ) ; 
end if; 

end Dispatch_Item; 
end Pane l_ma i nmenu ; 
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I. PANEL ADDFILE PACKAGE 



1. PAN_ADDFILE_S.A 

__ T AE Plus Code Generator version V5 . 1 

--***File : pan_addf i le_s . a 

__ *** Generated : May 21 16:12:31 1992 

__ *** Revised by : Dogan Ozdemir 



Panel_addf i le 



Package SPEC 






with TAE; 
with X_Windows; 

package Panel_addf ile is 



PURPOSE: 

This package encapsulates the TAE Plus panel: addfile 

These subprograms enable panel initialization, creation, destruction 
and event dispatching. For more advanced manipulation of the panel 
using the TAE package, the panel's Event_Context (Info) is provided 
It includes the Target and View (available after initialization) 
and the Panel_Id (available after creation) . 



REGENERATED : 

The following Workbench operations will cause regeneration of this 
f ile : 

The panel's name is changed (not title) 

For panel: 
addf ile 



Info : TAE . Tae_Wpt . Event_Context_Ptr ; -- panel information 



In it ial ize_Panel 



-- Subprogram SPEC 



procedure Initialize^ Panel 

( Collect ion_Read -- TAE Collection read from 

: in TAE. Tae_Co .Collect ion_Ptr ); -- resource file 

--I PURPOSE: 

--I This procedure initializes the Info. Target and Info. View for this 
panel 
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EXCEPTIONS : 

TAE . UNINITIAL I ZED_PTR is raised if Col lect ion_Read not initialized 
TAE .Tae_Co . N0_ SUCH_MEMBER is raised if the panel is not in 
Collection Read 



Create_Panel 



-- Subprogram SPEC 



procedure Create_Panel 
( Panel_State 

: in TAE . Tae_Wpt .Wpt_F lags 

: = TAE . Tae_Wpt . WPT_PREFERRED ; 

Relat ive_Window 

: in X_Windows .Window 

:= X_Windows . Nul l_Window ); 



-- Flags sent to Wpt_NewPanel . 



-- Panel origin is offset from 
-- this X Window. Null_Window 
-- uses the root window. 




PURPOSE: 

This procedure creates this panel object in the specified Panel_State 
and stores the panel Id in Inf o . Panel_Id . 



EXCEPTIONS : 

TAE . UN INITIAL I ZED_PTR is raised if the panel is not initialized 
TAE . TAE_FAIL is raised if the panel could not be created 



Connect_Panel 



-- Subprogram SPEC 



procedure Connect_Panel 
( Panel_State 

: in TAE .Tae_Wpt .Wpt_Flags 

: = TAE . Tae_Wpt . WPT_PREFERRED ; 

Relat i ve_W i ndow 

: in X_Windows .Window 

:= X_Windows .Nul l_Wi ndow ); 



-- Panel origin is offset from 
-- this X Window. Null_Window 
-- uses the root window. 



--I PURPOSE: 

-- I If this panel doesn't exist, this procedure creates this panel object 
--I in the specif iec Panel_State and stores the panel Id in 
-- 1 Info . Panel_Id . 

-- I If this panel does exist, it is set to the specified Panel_State. 
--I In this case, Relat ive_Window is ignored. 
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EXCEPTIONS : 

TAE . UNINITIALIZED_PTR is raised from Create_Panel if the panel is 
not initialized 

TAE.TAE_FAIL is raised from Create_Panel if the panel could not be 
created 

TAE . Tae_Wpt . BAD_S TATE is raised if the panel exists and the 
Panel State is an invalid state 



Destroy_Panel 



-- Subprogram SPEC 



procedure Destroy_Panel ; 



--I PURPOSE: 

--I This procedure erases a panel from the screen and de-al locates the 
--I associated panel object (not the target and view). 



--I EXCEPTIONS: 

--I TAE . Tae_Wpt . BAD_PANEL_ID is raised if Inf o . Panel_Id is an invalid 
id . 



NOTES : 



--I Info . Panel_Id is set to TAE .NULL_PANEL_ID, and should not referenced 
--I in any Wpt call until it is created again. 



Di spa tch_I tern 



-- Subprogram SPEC 



procedure Dispatch_Item 

( User_Context_Ptr 1 -- Wpt Event Context for a PARM 

: in TAE.Tae_Wpt . Event_Cont ext_Ptr ); -- event. 

--I PURPOSE: 

-- I This procedure calls the Event Handler specified by User_Context_Ptr 
-- I 

-- I EXCEPTIONS: 

--I Application-specific 

end Panel_addf ile ; 



208 



2. PAN ADDFILE B.A 



-- *** TAE Plus Code Generator version V5 . 1 
__ *** File : pan_addf i le_b . a 

-- *** Generated : May 21 16:12:31 1992 
__ *** Revised by : Dogan Ozdemir 



Panel_addf i le 



-- Package BODY 



with TAE; use TAE; 
with Text_IO; 
with Global; 
use Global , Text_IO; 



-- One "with" statement for each connected panel , 
with Pane l_ma inmenu; 

package body Panel_addf ile is 



NOTES : 

For each parameter that you have defined to be " event -generating " in 
this panel, there is an event handler procedure below. Each handler 
has a name that is a concatenation of the parameter name and "_Event" . 
Add application-dependent logic to each event handler. (As generated 
by the WorkBench, each event handler simply logs the occurrence of 
the event . ) 

You may want to flag any changes you make to this file so that if 
you regenerate this file, you can more easily cut and paste your 
modifications back in. 

REGENERATED : 

The following WorkBench operations will cause regeneration of this 
f ile : 

The panel's name is changed (not title) 

For panel: 
addf i le 

The following WorkBench operations will also cause regeneration: 

An item is deleted 

A new item is added to this panel 
An item's name is changed (not title) 

An item's data type is changed 

An item's generates events flag is changed 

An item's valids changed (if item is type string and connected) 
An item's connection information changed 
For the panel items : 

selpsdl, selbody, selspec, cancel, 

ok, inpsdl, inspec, inbody, 
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specdirectory , bodydirectory 



psdldi rectory , 



--ADDED 

psdlf ile 

specf ile 

bodyf i le 

err_string 

ls_f ile, error_f ile 

f ile_name 

error_f name 

number 



String (1 . .80) 
String ( 1 . . 80 ) 
String ( 1 . . 80 ) 
String ( 1 . . 80 ) 
f ile_type ; 
String ( 1 . . 7 ) : 

String ( 1 . . 9 ) : 

integer : =1 ; 



(others=> ' 


' ) ; 


( others=> ' 


' ) ; 


(others=> ' 


' ) ; 


(others=> ' 


1 ) ; 


ls_f ile" ; 


errorf ile " 


t 



In it ialize_Panel 



Subprogram BODY 



procedure Initial ize_Panel 
( Col lect ion_Read 

: in TAE . Tae_Co . Collect ion_Ptr ) is 



begin -- Init ialize_Panel 

Info := new TAE . Tae_Wpt . Event_Context ; 

Inf o . Collect ion := Collect ion_Read; 

TAE . Tae_Co . Co_Find ( Info .Collect ion, "addf ile_v" , Info. View) ; 
TAE . Tae_Co . Co_Find ( Inf o . Collect ion, " addf i le_t " , Inf o . Target ) ; 

except ion 

when TAE . UNINITIALIZED_PTR => 

Text_IO . Put_Line ( " Panel_addf ile . Init ialize_Panel : 

Sc "Collect ion_Read not initialized."); 
raise; , 

when TAE . Tae_Co . NO_SUCH_MEMBER => 

Text_IO . Put_Line ( " Panel_addf ile . Init ialize_Panel : 

Sc "(View or Target) not in Collection."); 
raise ; 

end Init ialize_Panel ; 



Create_Panel 



Subprogram BODY 
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procedure Create^ Panel 
( Panel_State 

: in TAE . Tae_Wpt . Wpt_Flags 

: = TAE . Tae_Wpt . WPT_PREFERRED ; 

Re 1 a t i ve_W i ndow 

: in X_ Windows .Window 

:= X_Windows . Null_Window ) is 



begin -- Create_Panel 

if Inf o . Panel_Id = Tae . Null_Panel_Id then 
TAE . Tae_Wp t . Wp t_NewPane 1 

( Dummy => " " , 



Text_IO . Put_Line ("Panel (addfile) is already displayed."); 
end if; 

except ion 

when TAE.UNINITIALIZED_PTR => 

Text_IO.Put_.Line ( " Panel_addf ile . Create_Panel : " 

& "Panel was not initialized prior to creation."); 
raise ; 

when TAE . TAE_FAIL => 

Text_I0 . Put_Line ( " Panel__addf ile . Create_Panel : 

Sc "Panel could not be created."); 
raise; > 

end Create_Panel ; 



Data_Vm 
V i e w_Vm 



Relative_Window 

User_Context 

Flags 

Panel_Id 



=> Info. Target, 

=> Info. View, 

=> Relat ive_Window, 
=> Info, 

=> Panel_State, 

=> Inf o . Panel_Id ); 



else 



Connect_Panel 



Subprogram BODY 



procedure Connect_Panel 
( Panel_State 

: in TAE . Tae_Wpt . Wpt_Flags 

: = TAE . Tae_Wp t . WPT_PREFERRED ; 
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Re lat ive_Window 

: in X_Windows .Window 

:= X_Windows . Nul l_Window ) is 



begin -- Connect_Panel 

if Info . Panel_Id = Tae . Nul l_Panel_Id then 
Create_Panel 

( Re lat ive_Window => Re lat ive__Window, 

Panel_State => Panel_State ) ; 

else 

TAE .Tae_Wpt . Wpt_Set PanelState ( Inf o . Panel_Id, Panel_State) ; 
end if; 

except ion 

when TAE . Tae_Wpt . BAD_STATE => 

Text_IO . Put_Line ( " Panel_addf ile . Connect_Panel : " 

& "Invalid panel state."); 
raise; 

end Connect_Panel ; 



Destroy_Panel 



-- Subprogram BODY 



procedure Destroy_Panel is 



begin -- Destroy_Panel 

TAE .Tae_Wpt . Wpt_PanelErase ( Info . Panel_Id) ; 
except ion 

when TAE . Tae_Wpt . BAD_PANEL_ID => 

Text_IO . Put_Line ( " Panel_addf i le . Destroy_Panel : " 

Sc " Info . Panel_Id is an invalid id."); 
raise; 

when TAE . Tae_Wpt . ERASE_NULL_PANEL => 

-- This panel has not been created yet, or has already been destroyed. 
-- Trap this exception and do nothing, 
null; 

end Destroy_Panel ; 
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K + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + ++ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + ++ + 



-- begin EVENT HANDLERS 



selpsdl_Event 



-- Subprogram SPEC U BODY 



procedure selpsdl_Event 

( Info : in TAE . Tae_Wpt . Event_Context_Ptr ) is 

— I PURPOSE: 

-- I EVENT HANDLER. Insert application specific information. 

--I 

-- l NOTES: This procedure reads the selected item and determines if it 
is a 

--I directory or a psdl file. 

Value : array (1..1) of String ( 1 .. TAE . Tae_Taeconf . STRINGS I ZE) ; 
Count : TAE.Taeint; 

N, M, K, S : integer :=1; 

Dummy : Boolean; 

psdl_vec : s_vector ( 1 . . 1 ) : = (others=> new STRING ( 1 .. 80 )) ; 
begin -- selpsdl_Event 

-- Begin default generated code 

TAE.Tae_Vm.Vm_Extract_Count ( Info . Parm_Ptr , Count) ; 
if Count > 0 then 

TAE . Tae_Vm . Vm_Extract_SVAL ( Inf o . Parm_Ptr , 1, Value (1) ) ; 
else 
null; 
end if; 

--ADDED 

psdlfile(1..80) : =Value ( 1 ) ( 1 . . 80 ) ; 
parse_line (psdlf ile ) ; 
strlen (psdlf ile , N) ; 
strlen (Directory , M) ; 

if Is_a_directory then 
K : =N+M; 

cur_dir_index : =cur_dir_index+ 1 ; 

Current_directory (cur_dir_index) (1. .N) : =psdlf ile ( 1 . .N) ; 
for node in (N+1J..80 loop 
Current_directory (cur_dir_index) (node) :=' ' ; 

end loop ; 

Directory ( 1 . . K) : =Directory ( 1 . . M ) & " / " Scpsdlf ile ( 1 . . ( N— 1 ) ) ; 
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if K>27 then 

directory .array := Directory ( (K-26) . .K) ; 

else 

directory_array := Directory ( 1 .. 27 ) ; 
end if; 

TAE . Tae_Vm. Vm_SetString ( Info .View, " psdldirectory " # 1 , directory_array , TAE . 
Tae_Vm.P_UPDATE) ; 

TAE . Tae_Wpt . Wpt_ViewUpdate ( Inf o . Panel_Id, "psdldirectory " , Inf o .View, "psdl 
directory" ) ; 

TAE . Tae_Vm. Vm_SetString ( Info .View, " specdirectory " , 1 , directory_array , TAE . 
Tae_Vm. P_UPDATE) ; 

TAE . Tae_Wpt . Wpt_ViewUpdate ( Info . Panel_Id, " specdirectory" , Info .View, " spec 
directory" ) ; 

TAE . Tae_Vm. Vm_SetString ( Inf o .View, " bodyd i rectory " , 1 , directory_array , TAE . 
Tae_Vm.P_UPDATE) ; 

TAE .Tae_ Wpt . Wpt_ViewUpdate ( Inf o . Panel_Id, " bodyd i rectory" , Inf o .View, "body 
directory" ) ; 

system_call ( " Is -F " SeDirectory ( 1 . . K) & " > " & " ls_f ile " ) ; 
list_directory ( ls_f ile, file_name, f ile_vec , number ) ; 

TAE . Tae_Wpt . Wpt_Se t St ringCons train ts ( Inf o . Panel_Id, " selpsdl " , taeint ( numb 
er) , f ile_vec) ; 

TAE.Tae_Wpt . Wpt_SetStringCons traint s (Info. Panel_Id, "selspec" , taeint (numb 
er ) , f ile_vec ) ; 

TAE . Tae_Wpt . Wpt_Set St ringCons traint s ( Inf o . Panel_Id, " selbody " , taeint (numb 
er) , f ile_vec) ; 

Dummy : =TAE . Tae_Wpt . Wpt_Pending ; 
system^ call ( "rm ls_file"); 

Is_a_directory : = FALSE ; 

elsif Upper_directory then 

strlen (Current_directory (cur_dir_index) ,S) ; 
for drct in (M-S+l)..80 loop 
Directory (drct ):= ' 
end loop; 

if (M-S ) >27 then 

directory_array : = Directory ( ( (M-S) -26) . . (M-S) ) ; 

else 

directory _array : = Directory ( 1 . . 27 ) ; 
end if; 
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TAE . Tae_Vm . Vm_SetStr ing ( Info. View, "psdldirectory " , 1, directory _array , TAE . 
Tae_Vm. P_UPDATE) ; 

TAE .Tae_Wpt . Wpt_ViewUpdate ( Info. Panel_Id, "psdldirectory" , Info .View, "psdl 
directory" ) ; 

TAE . Tae_Vm . Vm_Set String ( Info .View, " speed irectory " , 1 , directory_array , TAE . 
Tae_Vm . P_UPDATE ) ; 

TAE . Tae_Wpt . Wpt_ViewUpdate ( Info . Panel_Id, " specdirectory " , Info .View, " spec 
directory" ) ; 

TAE . Tae_Vm . Vm_SetString ( Info .View, " bodydirectory " , 1 , directory _array , TAE . 
Tae_Vm. P_UPDATE) ; 

TAE.Tae_Wpt . Wpt_ViewUpdate ( Info . Panel_Id, "bodydirectory" , Info .View, "body 
directory " ) ; 

cur_dir_index : =cur_dir_index- 1 ; 

system_call ( " Is -F " ^Directory ( 1 . . (M-S ) ) & " > " Sc " ls_f i le " ) ; 
list_directory ( ls_f ile, f ile_name, f ile_vec , number) ; 

TAE . Tae_Wpt . Wpt_SetStr ingConstraint s ( Info . Panel_Id, " selpsdl " , taeint (numb 
er) , file_vec) ; 

TAE . Tae_Wpt . Wpt_SetStr ingConst raints ( Info. Panel_Id, "selspec" , taeint (numb 
er ) , f ile_vec ) ; 

TAE . Tae_Wpt . Wpt_SetStr ingConst raints ( Inf o . Panel_Id, " selbody " , taeint ( numb 
er) , file_vec) ; 

Dummy : =TAE . Tae_Wpt . Wpt_Pending ; 
system_call ( " rm ls_file"); 

Upper_directory : =FALSE; 

else --A file name is selected 
psdl_vec(l) . all : =psdlf ile ; 

TAE . Tae_Wpt . Wpt_Set St r ingConst raints ( Info . Panel_Id, " inpsdl " , 1 , psdl_vec ) ; 
Dummy : =TAE . Tae_Wpt . Wpt_Pending ; 
end if; 

-- End default generated code 
end selpsdl_Event ; 



selbody_Event 



-- Subprogram SPEC & BODY 



is 



procedure selbody_Event 

{ Info : in TAE . Tae_Wpt . Event_Context_Ptr ) is 

--I PURPOSE: 

--( EVENT HANDLER. Insert application specific information. 

-- I 

-- I NOTES: This procedure reads the selected item and determines 
a 

-- I directory or a implementation body file. 



if it 



Value : array (1..1) of String (1 .. TAE . Tae_Taeconf . STRINGS IZE) ; 
Count : TAE.Taeint; 

N, M, K, S : integer:=l; 

Dummy : Boolean; 

body_vec: s_vector ( 1 . . 1 ) : = (others=> new STRING ( 1 ..80)); 



begin -- selbody_Event 



-- Begin default generated code 



TAE .Tae_Vm. Vm_Extract_Count ( Inf o . Parm_Ptr , Count) ; 
if Count > 0 then 

TAE.Tae_Vm.Vm_Extract_SVAL ( Inf o . Parm_Ptr , 1, Valued) ); 
else 
null ; 
end if; 

--ADDED 

bodyfile(l. .80) :=Value(l) (1..80); 
parse_line (body f i le ) ; 
strlen (bodyf ile, N) ; 
strlen ( Directory , M) ; 

if Is_a_directory then 
K : =N+M; 

cur_dir_index : =cur_dir_index+ 1 ; 

Current_di rectory ( cur_dir_index) ( 1 . . N) : =bodyf i le (1 . .N) ; 
for node in (N+l) . .80 loop 

Current_directory (cur_dir_index) (node) :=' ' ; 

end loop; 

Directory ( 1 . .K) : =Di rectory (1 . . M ) & " / " &bodyf ile ( 1 . . (N-l ) ) ; 
if K>27 then 

directory _array := Directory ( (K-26) . .K) ; 

else 

directory_array := Directory (1. .27) ; 
end i f ; 



TAE . Tae_Vm. Vm_SetString ( Info .View, " psdldi rectory " , 1 , directory_array # TAE. 
Tae_Vm.P_UPDATE) ; 

TAE.Tae_Wpt . Wpt_ViewUpdate (Info. Panel_Id, "psdldirectory " , Info. View, "psdl 
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directory" ) ; 



TAE . Tae_Vm . Vm_SetStr ing ( Inf o .View, " specdi rectory " , 1 , directory_ar ray , TAE . 
Tae_Vm . P_UPDATE ) ; 

TAE . Tae_Wpt . Wpt_ViewUpdate ( Inf o . Panel_Id, " specdi rectory " , Info .View, " spec 
directory" ) ; 

TAE . Tae_Vm . Vm__SetStr ing ( Info .View, " bodydi rectory " , 1 , directory_array , TAE . 
Tae_Vm . P_UPDATE ) ; 

TAE . Tae_Wpt . Wpt_ViewUpdate ( Info . Panel_Id, " bodydirectory " , Info .View, "body 
directory" ) ; 

system_call ( "Is -F " ^Directory ( 1 . . K) & " > ls_f ile" ) ; 

1 ist_di rectory ( ls_f ile , f ile_name, f ile_vec, number) ; 

TAE . Tae_Wpt . Wpt_SetStr ingCons train ts ( Inf o . Pane l_Id, " selpsdl " , taeint ( numb 
er) , file_vec) ; 

TAE . Tae_Wpt . Wpt_Set St r ingCons train ts ( Inf o . Panel_Id, " se lspec " , taeint ( numb 
er ) , f ile_vec) ; 

TAE . Tae_Wpt .Wpt_SetStr ingCons traints ( Inf o . Panel_Id, " selbody " , taeint (numb 
er ) , f i le_vec ) ; 

Dummy : =TAE . Tae_Wpt . Wpt_Pending ; 
system_cal 1 ( " rm ls_file"); 

Is_a_directory : =FALSE ? 

elsif Upper__directory then 

str len ( Cur rent_di rectory (cur_dir_index) , S) ; 
for drct in (M-S+l)..80 loop 
Directory (drct ):= ' 1 ? 

end loop; 

if (M-S)>27 then 

directory_array := Directory (( (M-S) -26 ).. (M-S) ) ; 

else 

directory_array := Directory ( 1 .. 27 ) ; 
end if; 

TAE . Tae_Vm. Vm_SetString ( Info .View, " psdldi rectory " , 1 , directory_array , TAE . 
Tae_Vm. P^UPDATE) ; 

TAE . Tae_Wpt . Wpt_ViewUpdate ( Info . Panel_Id, " psdldir ectory " , Info .View, "psdl 
directory" ) ; 

TAE .Tae_Vm.Vm_Se tSt ring ( Info .View, " specdirectory " , 1, directory_array , TAE . 
Tae__Vm . P_UPDATE ) ; 

TAE . Tae_Wpt . Wpt_ViewUpdate ( Inf o . Pane l__Id, " specdirectory" , Info .View, " spec 
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directory” ) ; 



TAE . Tae_Vm . Vm_Set String ( Inf o .View, " body directory " , 1 , directory^ array , TAE . 
Tae_Vm . P_UPDATE ) ; 

TAE . Tae_Wpt . Wpt_ViewUpdate ( Inf o . Panel_Id, " bodydi rectory ”, Inf o . View, ‘’body 
directory " ) ; 

cur_dir_index : =cur_dir_index- 1 ; 

system_call ( " Is -F " ^Directory ( 1 . . (M-S ) ) & " > ”& " ls_f ile" ) ; 
list_directory ( ls_f ile, f ile_name, f ile_vec, number) ; 

TAE . Tae_Wpt . Wpt_SetStr ingConstraints ( Info . Panel_Id, " selpsdl " , taeint (numb 
er ) , f ile_vec) ; 

TAE .Tae_Wpt . Wpt_SetStr ingConstraints ( Inf o . Panel_Id, " selspec " , taeint (numb 
er) , file_vec) ; 

TAE . Tae_Wpt • Wpt_SetStr ingConstraints ( Info . Panel_Id, " selbody " , taeint (numb 
er) , file_vec) ; 

Dummy : =TAE . Tae_Wpt . Wpt_Pending ; 
system_call ( ”rm ls_f ile” ) ; 

Upper_di rectory : =FALSE ; 

else 

body_vec(l) . al 1 : =body f i le ; 

TAE . Tae_Wpt .Wpt_SetStr ingConstraints ( Info . Panel_Id, " inbody” , 1 , body_vec ) ; 
Dummy : =TAE . Tae_Wpt . Wpt_Pending ; 
end if; 

-- End default generated code 
end selbody _Event ; 



selspec_Event 



-- Subprogram SPEC & BODY 



procedure selspec_Event 

( Info : in TAE . Tae_Wpt . Even t_Context_Ptr ) is 

--I PURPOSE: 

--I EVENT HANDLER. Insert application specific information. 

--I 

--I NOTES: This procedure reads the selected item and determines 



directory or a implementation spec file. 



if it 
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Value : array (1..1) of String (1. . TAE . Tae_Taeconf . STRINGS IZE ) ; 
Count : TAE.Taeint; 

N, M, K, S : integer :=1; 

Dummy : Boolean; 

spec_vec: s_vector ( 1 . . 1 ) : = (others=> new STRING ( 1 .. 30 )) ; 
begin -- selspec_Event 

-- Begin default generated code 

TAE . Tae_Vm. Vm_Extract_Count ( Inf o . Parm_Ptr , Count) ; 
if Count > 0 then 

TAE . Tae_Vm .Vm_Ex tract _SVAL ( Inf o . Parm_Ptr # 1, Value(l)); 

else 
null ; 
end i f ; 

--ADDED 

specf ile : =Value ( 1 ) ( 1 . . 80 ) ; 
parse_line ( specf ile) ; 
strlen( spec file, N) ; 
strlen ( Directory , M) ; 

if I s_a_di rectory then 
K : =N+M; 

cur_dir_index : =cur_dir_index+l ; 

Current_directory ( cur_dir_index) ( 1 . .N) : =specf ile ( 1 . .N) ; 
for node in (N+D..80 loop 

Current_directory ( cur_dir_index) (node) : = ' ' ; 

end loop; 

Directory ( 1 . .K) : =Directory ( 1 . .M) Sc" / 11 Sc spec file ( 1 . . (N-l ) ) ; 
if K>27 then 

directory .array : = Directory (( K-2 6 ).. K) ; 

else 

directory _array := Directory ( 1 .. 27 ) ; 

end if; 

TAE . Tae_Vm. Vm_SetStr ing ( Info .yiew, "psdldi rectory" , 1 , directory_array , TAE . 
Tae_Vm. P_UPDATE) ; 

TAE . Tae_Wpt . Wpt_ViewUpdate ( Info . Panel_Id, "psdldi rectory " , Info .View, "psdl 
directory" ) ; 

TAE . Tae_Vm. Vm_SetString ( Info .View, " specdirectory " , 1 , directory _array , TAE . 
Tae_Vm.P_UPDATE) ; 

TAE .Tae_Wpt . Wpt_ViewUpdate ( Inf o . Panel_Id, " specdirectory" , Inf o .View, " spec 
directory " ) ; 

TAE . Tae_Vm . Vm_SetString ( Info .View, "bodydirectory " , 1 , directory _array, TAE . 
Tae_Vm . P_UPDATE ) ; 
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TAE . Tae_Wpt . Wpt_ViewUpdate ( Info . Panel_Id, "bodydi rectory" , Info .View, "body 
directory" ) ; 

system_call ( " Is -F " &Di rectory ( 1 .. K) & " > ls_f ile" ) ; 

list_directory ( ls_f ile, f ile_name, f ile_vec, number) ; 

TAE . Tae_Wpt . Wpt_SetStr ingConst raints (Info. Panel_Id, "selpsdl" , taeint (numb 
er ) , f ile_vec ) ; 

TAE . Tae_Wpt . Wpt_SetStr ingConstraints ( Info . Panel_Id, "seispec" , taeint (numb 
er ) , f ile_vec ) ; 

TAE . Tae_Wpt . Wpt_SetStr ingConstraints ( Info . Panel_Id, " selbody " , taeint (numb 
er) , f ile_vec) ; 

Dummy : =TAE . Tae_Wpt . Wpt_Pending ; 
system_call ( " rm ls_file"); 

Is_a_directory : =FALSE; 

elsif Upper_directory then 

strlen (Current_directory (cur_dir_index) , S) ; 
for drct in (M-S+1J..80 loop 
Directory (drct ):= ' '; 

end loop; 

if (M-S ) >27 then 

directory_array : = Directory ( ( (M-S) -26) . . (M-S) ) ; 

else 

directory_array := Directory ( 1 .. 27 ) ; 
end if; 

TAE . Tae_Vm . Vm_SetStr ing ( Inf o .View, " psdldi rectory " , 1 , directory^ array , TAE . 
Tae_Vm . P^UPDATE) ; 

TAE . Tae_Wpt . Wpt_ViewUpdate ( Info . Panel_Id, "psdldirectory " , Inf o .View, "psdl 
directory" ) ; 

TAE . Tae_Vm . Vm_SetString ( Info .yiew, " specdi rectory " , 1 , directory_array , TAE . 
Tae_Vm.P_UPDATE) ; 

TAE . Tae_Wpt . Wpt_ViewUpdate ( Info . Panel_Id, " specdirectory " , Info .View, " spec 
directory " ) ; 

TAE .Tae_Vm. Vm_SetString ( Info .View, " bodydi rectory " , 1 , directory_array , TAE . 
Tae_Vm.P_UPDATE) ; 

TAE . Tae_Wpt . Wpt_ViewUpdate ( Info . Panel_Id, "bodydirectory " , Info .View, "body 
directory" ) ; 

cur_dir_index : =cur_dir_index-l ; 

system_call ( " Is -F " ^Directory ( 1 . . (M-S ) ) Sc " > "& " ls_f ile" ) ; 
list_directory ( ls_ f ile, f ile_name, f ile_vec, number) ; 
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TAE . Tae_Wpt . Wpt_SetStr ingCons traints ( Info . Panel_Id, " selpsdl H , taeint ( numb 
er) , f ile_vec) ; 

TAE . Tae_Wpt . Wpt_Set St r ingCons traints ( Inf o . Panel_Id, " selspec " , taeint ( numb 
er ) , f ile_vec) ; 

TAE . Tae_Wpt . Wpt_SetStr ingConstraint s ( Info . Panel_Id, "selbody " , taeint (numb 
er) , f ile_vec ) ; 

Dummy : =TAE . Tae_Wpt . Wpt_Pending ; 
system_call ( " rm ls_file"); 

Upper_directory : = FALSE; 

else 

spec_vec(l) . all : =specf ile ; 

TAE . Tae_Wpt . Wpt_SetStr ingConstraints ( Info . Panel_Id, " inspec " , 1 , spec_vec ) ; 
Dummy : =TAE . Tae_Wpt . Wpt_Pending ; 
end if; 



-- End default generated code 
end selspec_Event ; 



cancel_Event 



-- Subprogram SPEC Sc BODY 



procedure cancel_Event 

( Info : in TAE . Tae_Wpt . Event_Context_Ptr ) is 
--I PURPOSE: 

-- I EVENT HANDLER. Insert application specific information. 

» 

Value : array (1..1) of String ( 1 . . TAE . Tae_Taeconf . STRINGSIZE) ; 
Count : TAE. Taeint; 

begin -- cancel_Event 

-- Begin default generated code 

TAE . Tae_Vm .Vm_Ex tract _Count ( Inf o . Parm_Ptr , Count) ; 
if Count > 0 then 

TAE.Tae_Vm.Vm_Extract_SVAL ( Inf o . Parm_Ptr , 1, Value (1)) ; 
else 
nu 1 1 ; 
end if; 

-- End default generated code 
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-- Begin generated code for Connection 

Connec t_Panel (TAE . Tae_Wpt . WPT_INVISIBLE) ; 

Pane l_mai nine nu . Connect_Panel {TAE . Tae_Wpt . WPT_VISIBLE) ; 
-- End generated code for Connection 
--ADDED 

TAE . Tae_Wpt . Wpt_Pane IReset { Info . Panel_Id) ; 

for J in 1..80 loop 
Directory { J) : = ' ' ; 

end loop; 

for K in 1 . . cur_dir_index loop 
for L in 1 . . 80 loop 

current_directory (K) (L) :=' ' ; 

end loop; 
end loop; 

for A in 1 . . 27 loop 

directory_array { A) :=' ' ; 

end loop; 
cur_dir_index : =1 ; 
end cance l_Even t ; 



ok_Event 



-- Subprogram SPEC & BODY 



procedure ok__Event 

( Info : in TAE . Tae_Wpt . Event_Context_Ptr ) is 
--I PURPOSE: 

-- I EVENT HANDLER. Insert application specific information. 

— I 

-- I NOTES: After all the files are selected, this procedure activates the 
--I software base and adds/updates the component. 

Value : array { 1 . - 1 ) of String { 1 .. TAE . Tae__Taeconf . STRINGS IZE) ; 
Count : TAE . Taeint ; 

--ADDED 

N,M, L,K, J, S: Integer :=1; 
begin -- ok_Event 

-- Begin default generated code 

TAE . Tae_Vm.Vm_Ex tract _Count ( Inf o . Parm_Ptr , Count); 
if Count > 0 then 

TAE .Tae_Vm.Vm_Extract_SVAL { Inf o . Parm_Ptr , 1, Value(l) ) ; 

else 
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null; 
end i f ; 

global . strlen (psdlf ile , N) ; 
global . strlen ( spec file, M) ; 
global . strlen ( body file, L) ; 
global . strlen (Directory , K) ; 
global . strlen ( library , J) ; 

if Component_add then 

global . system_call ( com& " ca " Sdibrary ( 1 . . J)&" "^Directory ( 1 . .K)&" / 
&psdl filed. . N ) & " " ^Directory ( 1 . .K) &" / " &specf ile ( 1 . .M)&" 

^Directory ( 1 . .K) &" / "&bodyf ile ( 1 . .L)&" > " £cerror_f name ) ; 

global . error st ring (error_f ile , error_f name, err_string) ; 
global . strlen (err_string , S ) ; 
if S>1 then 

TAE . Tae_Wpt . Wpt_PanelMessage ( inf o . panel_id, err_str ing ) ; 

S : = 1 ; 
end if; 

global . system_call (" rm " &error_f name ) ; 
for ESA in 1..80 loop 

err__string (ESA) : = 1 ' ; 

end loop ; 

Component_add : =FALSE ; 
els if Component_Update then 

global . system_call (com& " cu "Sc library ( 1 . . J) &" " ScDi rectory ( 1 . . K) &" / 

&psdlf ile ( 1 . .N) Sc" "ScDi rectory ( 1 . . K ) & " / " Scspecf ile ( 1 . .M ) & " 

SeDirectory (1 . .K) Sc" / "Scbodyf ile ( 1 . .L) Sc" > " &error_f name ) ; 

global . error st ring (error_f ile, error__f name , err_string) ; 
global . strlen (err_string, S) ; 
if S>1 then 

TAE . Tae_Wpt . Wpt_PanelMessage ( info . panel_id, err_str ing ) ; 

S : = 1 ; 
end if; 

global . system_call (" rm " Seer ror_f name ) ; 
for ESU in 1..80 loop 

err_string (ESU) :=' ' ; 

end loop; 

Component_update : =FALSE; 
end if; 

-- End default generated code 
-- Begin generated code for Connection 
Connect_Pane 1 (TAE .Tae_Wpt . WPT_INVISIBLE) ; 

Pane l_ma inmenu . Connect_Panel (TAE . Tae_Wpt . WPT_VISIBLE) ; 

-- End generated code for Connection 

TAE . Tae_Wpt . Wpt_Pane IReset ( Info . Panel_Id) ; 
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for X in 1 . . 80 loop 
Directory (X) : = ' ' ; 

end loop; 

for Y in 1 . . cur_ dir_index loop 
for P in 1 . . 80 loop 

current_directory ( Y ) (P) :=' ' 

end loop; 
end loop; 

for AA in 1..27 loop 

directory _array ( AA) : = ' ' ; 

end loop; 
cur_dir_index : =1 ; 

end ok_Event ; 

-- end EVENT HANDLERS 



Dispatch_Item 



-- Subprogram BODY 



procedure Dispatch_Item 

( User_Context_Ptr : in TAE . Tae_Wpt . Event_Context_Pt r ) is 



begin -- Dispatch_It em 

if TAE .Tae_Misc . s_equal ( " selpsdl", User_Context_Ptr . Parm_Name ) then 
selpsdl_Event (User_Context_Ptr ) ; 

elsif TAE . Tae_Misc . s_equal ( "selbody" , User_Context_Ptr . Parm_Name) 

then 

selbody _Event (User_Context_Ptr ) ; 

elsif TAE . Tae_Misc . s_equal ( "selspec" , User_Context_Ptr . Parm_Name) 

then 

selspec_Event (User_Cont ext_Ptr ) ; 

elsif TAE.Tae_Misc .s_equal ("cancel", User_Context_Ptr . Parm_Name) then 
cancel_Event (User_Context_Ptr ) ; 

elsif TAE . Tae_Misc . s_equal ("ok", User_Context_Ptr . Parm_Name ) then 
ok_Event (User_Context_Ptr ) ; 
end if; 

end Di spa tch_I tern; 
end Panel_addf ile ; 
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J 



PANEL KEYWORD PACKAGE 



1. PAN_KEY W ORD_S. A 

__ *** TAE Plus Code Generator version V5 . 1 
-- * * * File : pan_keyword_s . a 

-- *** Generated : May 21 16:12:31 1992 
-- **★ Revised by : Dogan Ozdemir 

★ 

* Panel_keyword -- Package SPEC 

★ 



with TAE; 
with X_Windows; 

package Panel_keyword is 



PURPOSE: 

This package encapsulates the TAE Plus panel: keyword 

These subprograms enable panel initialization, creation, destruction, 
and event dispatching. For more advanced manipulation of the panel 
using the TAE package, the panel's Event_Context (Info) is provided. 
It includes the Target and View (available after initialization) 
and the Panel_Id (available after creation) . 

REGENERATED : 

The following Workbench operations will cause regeneration of this 
f ile : 

The panel's name is changed (not title) 

For panel : 
keyword 



Info : TAE . Tae_Wpt . Event_Context_Ptr ; -- panel information 



In it ial ize_Panel 



-- Subprogram SPEC 



procedure Init ialize_Panel 

( Collection_Read -- TAE Collection read from 

: in TAE .Tae_Co .Collect ion_Ptr ); -- resource file 

-- I PURPOSE: 

--I This procedure initializes the Info. Target and Info. View for this 
-- I panel 
— I 
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--I EXCEPTIONS: 

--I TAE . UNINITIALIZED_PTR is raised if Col lect ion_Read not initialized 
-- I TAE . Tae_Co . NO_SUCH_MEMBER is raised if the panel is not in 
--I Collect ion_Read 



Create_Panel 



-- Subprogram SPEC 



procedure Create_Panel 
( Panel_State 

: in TAE . Tae_Wpt . Wpt_Flags 

: = TAE . Tae_Wpt . WPT_PREFERRED ; 

Relat ive_Window 

: in X_Windows .Window 

:= X_Windows . Null_Window ); 



-- Flags sent to Wpt_NewPanel . 



-- Panel origin is offset from 
-- this X Window. Null_Window 
-- uses the root window. 



--I PURPOSE: 



-- I 



This procedure creates this panel object in the specified Panel_State 
and stores the panel Id in Inf o . Panel_Id . 



EXCEPTIONS : 

TAE.UNINITIALIZED_PTR is raised if the panel is not initialized 
TAE.TAE_FAIL is raised if the panel could not be created 



Connect_Panel 



Subprogram SPEC 



procedure Connect_Panel 
( Panel_State 

: in TAE . Tae_Wpt .Wpt_F lags 

: = TAE.Tae_Wpt . WPT_PREFERRED; 

Relat ive_Window 

: in X_Windows .Window 

:= X_Windows .Null_Window ); 



-- Panel origin is offset from 
-- this X Window. Null_Window 
-- uses the root window. 



--I PURPOSE: 

-- I If this panel doesn't exist, this procedure creates this panel object 
--I in the specif iec Panel_State and stores the panel Id in 
-- I Info . Panel_Id . 

--I If this panel does exist, it is set to the specified Panel_State. 
--I In this case, Relat ive_Window is ignored. 

--I EXCEPTIONS: 



226 



TAE . UNINITIALIZED_PTR is raised from Create_Panel if the panel is 
not initialized 

TAE . TAE_FAIL is raised from Create_Panel if the panel could not be 
created 

TAE . Tae_Wpt . BAD_STATE is raised if the panel exists and the 
Panel_State is an invalid state 



Destroy_Panel 



-- Subprogram SPEC 



procedure Des troy_Panel ; 



--I PURPOSE: 

-- I This procedure erases a panel from the screen and de-allocates the 
-- I associated panel object (not the target and view). 



--I EXCEPTIONS: 

--I TAE.Tae_Wpt . BAD_PANEL_ID is raised if Info . Panel_Id is an invalid 
id . 



NOTES : 



--I Info . Panel_Id is set to TAE . NULL_PANEL_ID , and should not referenced 
--1 in any Wpt call until it is created again. 



Di spat ch_I tern 



-- Subprogram SPEC 



procedure Dispatch_Item 

( User_Context_Ptr -- Wpt Event Context for a PARM 

: in TAE . Tae_Wpt . Event_Context_Ptr ); -- event. 

--I PURPOSE: 

--I This procedure calls the Event Handler specified by User_Context_Ptr 
--I 

--I EXCEPTIONS: 

Application-specif ic 

end Panel_keyword ; 
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2. PAN KEYWORD B.A 



__ *** TAE Plus Code Generator version V5 . 1 
__ *** File : pan_keyword_b . a 

-- *** Generated : May 21 16:12:31 1992 
-- *** Revised by : Dogan Ozdemir 



* Panel_keyword -- Package BODY 

★ 

with TAE; use TAE; 
with Text_IO; 
with Global; 
use Text_IO, Global ; 

-- One "with" statement for each connected panel, 
with Pan el_ma inmenu ; 
with Panel_compsel ; 

package body Panel_keyword is 



NOTES : 

For each parameter that you have defined to be "event-generating" in 
this panel, there is an event handler procedure below. Each handler 
has a name that is a concatenation of the parameter name and "_Event". 
Add application-dependent logic to each event handler. (As generated 
by the WorkBench, each event handler simply logs the occurrence of 
the event . ) 

You may want to flag any changes you make to this file so that if 
you regenerate this file, you can more easily cut and paste your 
modifications back in. 

REGENERATED : 

The following WorkBench operations will cause regeneration of this 
f ile : 

The panel's name is changed (not title) 

For panel : 
keyword 



The following WorkBench operations will also cause regeneration: 

An item is deleted 

A new item is added to this panel 

An item's name is changed (not title) 

An item's data type is changed 

An item's generates events flag is changed 

An item's valids changed (if item is type string and connected) 
An item's connection information changed 
For the panel items: 

kwavail, kwselected, cancel, ok, 
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--ADDED 
kw_vec 
kwadd_vec 
kw_se lected 
kw_list 
f i le_name 
number , index 



s_vector ( 1 . . 100 ) : = (others=> new STRING ( 1 .. 80 )) ; 
s^vector ( 1 . . 15 ) : = (others=> new STRING ( 1 .. 30 )) ; 
String (1..80):= (others=>' '); 
f ile_type ; 

String (1.. 7) := "kw_list"; 

integer : =1 ; 



In it ialize_Panel 



-- Subprogram BODY 



procedure Init ial ize_Pane 1 
( Collect ion_Read 

: in TAE.Tae_Co.Collection_Ptr ) is 



begin -- Init ialize_Panel 

Info := new TAE . Tae_Wpt . Event_Context ; 

Info . Collect ion := Collection_Read; 

TAE . Tae_Co . Co_Find ( Inf o . Collect ion , " keyword__v" , Info. View) ; 

TAE . Tae_Co . Co_Find ( Info . Collection, "keyword_t " , Info .Target ) ; 

exception 

when TAE . UNINITIALIZED_PTR => 

Text_IO . Put_Line ( " Pane l_keyword . Init ial ize_Panel : " 

Sc " Collect ion_Read not initialized. 1 '); 
raise; 

when TAE . Tae_Co . NO_SUCH_MEMBER => 

Text_I0 . Put_Line ( " Panel_keyword . Init ialize_Panel : 

& "(View or Target) not in Collection."); 
raise; 

end Initialize_Panel ; 



Create_Panel 



Subprogram BODY 



procedure Create_Panel 
( Panel_State 

: in TAE. Tae_Wpt .Wpt_F lags 

:= TAE . Tae_Wp t . WPT_PREFERRED ; 
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Relat ive__Window 

: in X_Windows .Window 

: = X_Windows .Null_Window ) is 



begin -- Create_Panel 



if Info . Panel_Id = Tae . Null_Panel_Id then 



TAE . Tae_Wpt . Wpt_NewPanel 
( Dummy 
Data_Vm 
View_Vm 

Relative_Window 

User_Context 

Flags 

Panel_Id 



= > " " , 

=> Info. Target, 

=> Info. View, 

=> Relat ive_Window, 
=> Info, 

=> Panel_State, 

=> Info . Panel_Id ); 



else 

Text_ 10 . Put_Line (“Panel (keyword) is already displayed."); 
end if; 



except ion 

when TAE . UNINITIALIZED_PTR => 

Text_I0 . Put_Line ( " Panel_keyword . Create_Panel : " 

Sc "Panel was not initialized prior to creation."); 
raise; 



when TAE . TAE_FAIL => 

Text_I0 . Put_Line ( " Panel_keyword . Create_Panel : 
Sc "Panel could not be created."); 
raise; 



end Create_Panel ; 



Connect_Panel 



-- Subprogram BODY 



procedure Connect_Panel 
( Panel_State 

: in TAE. Tae_Wp t ,Wpt_F lags 

:= TAE . Tae_Wpt . WPT_PREFERRED ; 

Relat ive_Window 

: in X_Windows .Window 

:= X_Windows .Null_Window ) is 
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--ADDED 
Dummy : Boolean ; 

dir : constant String $HOME/caps/src/sof tware_base/ " ; 
L : integer :=1; 



begin -- Connect_Panel 



if Info . Panel_Id = 



Tae . Nul l_Panel_Id then 



Create_Panel 



( Relat ive_Window 
Panel_State 



=> Relati ve_W i n do w , 
=> Panel_State ) ; 



end i f ; 



--ADDED 

strlen ( library , L) ; 

system_call (comSc"kwl " Sclibrary ( 1 . . L) Sc" "Sc"kw_list" ) ; 
list_components (kw — list , f ile_name, kw_vec, number) ; 

TAE.Tae_Wpt . Wpt_Set PanelState ( Info . Panel_Id, Panel_State) ; 

TAE . Tae_Wpt . Wpt_SetStr ingCons train ts ( Inf o . Panel_Id, " kwavai 1 " , taeint ( numb 
er ) , kw_vec ) ; 

Dummy : =TAE . Tae_Wpt . Wpt_Pending ; 
system_cal 1 ( " rm kw_list"); 

except ion 

when TAE . Tae_Wpt . BAD_STATE => 

Text_IO . Put_Line ( " Panel_keyword . Connect_Panel : " 

& "Invalid panel state."); 
raise; 

end Connect_Panel ; 



procedure Destroy_Panel is 

begin -- Destroy_Panel 

TAE . Tae_Wpt . Wpt_PanelErase ( Info . Panel_Id) ; 
exception 

when TAE . Tae_Wpt . BAD_PANEL_ID => 

Text_IO . Put_Line ( " Panel_keyword . Destroy_Panel : 
Sc " Inf o . Panel_Id is an invalid id."); 



Destroy_Panel 



Subprogram BODY 
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raise ; 



when TAE . Tae_Wpt . ERAS E_NULL_ PANEL => 

-- This panel has not been created yet, or has already been destroyed. 
-- Trap this exception and do nothing, 
null ; 

end Destroy_Panel ; 



-- + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + -1- + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 
-- begin EVENT HANDLERS 



kwa vail _Eve n t 



Subprogram SPEC & BODY 



procedure kwavai l_Event 

( Info : in TAE . Tae_Wpt . Event_Context_Ptr ) is 

--| PURPOSE: 

--I EVENT HANDLER. Insert application specific information. 



Value : array (1..1) of String ( 1 .. TAE . Tae_Taeconf . STRINGS I ZE ) ; 

Count : TAE.Taeint; 

begin -- kwavai l_Event 

-- Begin default generated code 

TAE . Tae_Vm. Vm_Extract_Count ( Inf o . Parm_Ptr , Count) ; 
if Count > 0 then 

TAE . Tae_Vm. Vm_Extract_SVAL ( Inf o . Parm_Ptr , 1, Value (1)) ; 

end if; 

--ADDED 

kw_selected(l. .80) :=Value(l) (1. .80) ; 
kwadd_vec ( index) .all : =kw_s elec ted; 

TAE . Tae_Wpt . Wpt_SetStr ingCons traint s ( Info . Panel_Id, “ kws elec ted" , taeint ( i 
ndex) ,kwadd_vec) ; 

index : = index+ 1 ; 



-- End default generated code 
end kwavail_Event ; 
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cancel_Event 



-- Subprogram SPEC & BODY 



procedure cancel_Event 

( Info : in TAE .Tae_Wpt . Even t_Cont ext _Ptr ) is 
--I PURPOSE: 

-- ! EVENT HANDLER. Insert application specific information. 

Value : array (1..1) of String ( 1 . . TAE . Tae_Taeconf . STRINGSIZE) ; 
Count : TAE.Taeint; 

begin -- cancel_Event 

-- Begin default generated code 

TAE .Tae_Vm.Vm_Extract_Count ( Inf o . Parm_Ptr , Count) ; 
if Count > 0 then 

TAE . Tae_Vm . Vm_Extract_SVAL ( Info . Parm_Ptr , 1 , Value ( 1 ) ) ; 

else 
null ; 
end i f ; 

-- End default generated code 

-- Begin generated code for Connection 

Connect_Panel (TAE . Tae_Wpt .WPT_ INVISIBLE) ; 

Pane l_ma inmenu . Connect__Panel (TAE . Tae_Wpt . WPT_VISIBLE) ; 

-- End generated code for Connection 



--ADDED 

for J in 1.. ( index- 1) loop 
for K in 1 . . 80 loop 

kwadd_vec (J).all(K):= l 1 ; 

end loop; 
end loop; 
index: =1 ; 

kw_selected ( 1 . . 5) := M " ; 

TAE . Tae_Wpt . Wpt__PanelReset ( Inf o . Panel_Id) ; 

end cancel__Event ; 



ok_Event 



Subprogram SPEC & BODY 
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procedure ok_Event 

( Info : in TAE . Tae_Wpt . Event_Context_Ptr ) is 
--I PURPOSE: 

--I EXTENT HANDLER. Insert application specific information. 

Value : array (1..1) of String ( 1 .. TAE . Tae_Taeconf . STRINGS IZE ) ; 
Count : TAE . Taeint ; 

--ADDED 

N : integer :=1; 

kwquery_f ile : file_type; 

Dummy : Boolean; 

kwq_outfile : file_type; 



begin -- ok_Event 

-- Begin default generated code 

TAE . Tae_Vm. Vm_Extract_Count ( Inf o . Parm_Ptr , Count) ; 
if Count > 0 then 

TAE . Tae_Vm. Vm_Extract_SVAL ( Inf o . Parm_Ptr , 1, Valued) ) ; 

end if; 

--ADDED 

if kw_selected ( 1 . . 5 ) = " " then 

TAE . Tae__Wpt . Wpt_PanelMessage ( info . panel_id, "NO KEYWORD IS 
SELECTED" ) ; 
else 

create (kwquery_f ile, mode =>out_f ile, name=>"query_f ile" ) ; 
for I in 1.. (index-1) loop 

put_line (kwquery_f ile, kwadd_vec (I) .all) ; 
end loop; 

str len ( 1 ibrary , N ) ; 

system_call (com£c " kwq "5:1 ibrary ( 1 . . N ) & " "&:"query_f ile"£c" 
"&kwquery_outf ile) ; 

delete (kwquery_f ile) ; 

list_components (kwq_outf ile, kwquery_out f ile , f ile_vec, num_of_comp) ; 

TAE . Tae_Wpt . Wpt_SetStr ingCons traint s ( Panel_compsel . Inf o . Panel_Id, " comps e 
1 " , taeint (num_of_comp) , f ile_vec ) ; 

Dummy : =TAE . Tae_Wpt . Wpt_Pending ; 
system_call ( "rm kwquery_outf ile" ) ; 



-- End default generated code 
-- Begin generated code for Connection 
Connect_Panel (TAE . Tae_Wpt .WPT_ INVISIBLE ) ; 
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Panel_compsel . Connect_Panel (TAE . Tae_Wpt . WPT_VISIBLE) ; 
-- End generated code for Connection 



--ADDED 

for J in 1.. (index-1) loop 
for K in 1..80 loop 

kwadd_vec (J).all(K):=‘ 
end loop; 
end loop; 
index : =1 ; 

kw_selected ( 1 . . 5 ) := " " ; 

TAE . Tae_Wpt . Wpt_PanelReset ( Info . Panel_Id) ; 

end if; 

end ok_Event ; 



-- end EVENT HANDLERS 



Dispatch_Item 



Subprogram BODY 



procedure Dispatch_Item 

( User_Context_Ptr : in TAE .Tae_Wpt . Event_Context_Ptr ) is 



begin -- Dispatch_Item 

if TAE . Tae_Misc . s_equal ( "kwavail" , User_Context_Ptr . Parm_Name ) then 
kwavail_Event (User_Context_Ptr ) ; 

elsif TAE.Tae_Misc.s_equal ("cancel", User_Context_Ptr . Parm_Name ) then 
cancel.Event (User_Context_Ptr ) ; 

elsif TAE .Tae_Misc . s_equal ("ok", User_Context_Pt r . Parm_Name ) then 
ok_Event (User_Context_Ptr ) ; 

end if; 

end Dispatch_Item; 
end Panel_keyword ; 
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K. 



PANEL_QUERY PACKAGE 



1. PAN QUERY S.A 

__ *** TAE plus Code Generator version V5 . 1 
__ *** File : pan_query_s . a 

__ *★* Generated : May 21 16:12:31 1992 
__ *** Revised by : Dogan Ozdemir 

_ _ ★ 

* Panel_query -- Package SPEC 

★ 



with TAE; 
with X_Windows ; 

package Panel_query is 



PURPOSE: 

This package encapsulates the TAE Plus panel: query 

These subprograms enable panel initialization, creation, destruction, 
and event dispatching. For more advanced manipulation of the panel 
using the TAE package, the panel's Event_Context (Info) is provided. 
It includes the Target and View (available after initialization) 
and the Panel_Id (available after creation) . 

REGENERATED : 

The following Workbench operations will cause regeneration of this 
f ile : 

The panel's name is changed (not title) 

For panel: 
query 



Info : TAE. Tae_Wpt .Even t_Context_Ptr ; -- panel information 



In it ialize_Panel 



-- Subprogram SPEC 



procedure Initial ize_Panel 

( Collection_Read -- TAE Collection read from 

: in TAE.Tae_Co.Collection_Ptr ); -- resource file 

--I PURPOSE: 

--I This procedure initializes the Info. Target and Info. View for this 
-- I panel 
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--I EXCEPTIONS: 

--I TAE . UNINITIAL IZED_PTR is raised if Col lect ion_Read not initialized 
--I TAE . Tae_Co . NO_SUCH_MEMBER is raised if the panel is not in 
-- I Collect ion_Read 



Create_Panel 



-- Subprogram SPEC 



procedure Create_Panel 
( Panel_State 

: in TAE . Tae_Wpt . Wpt_Flags 

:= TAE.Tae_Wpt . WPT_PREFERRED ; 

Re lat ive_Window 

: in X_Windows .Window 

:= X_Windows . Null_Window ); 



-- Flags sent to Wpt_NewPanel . 



-- Panel origin is offset from 
-- this X Window. Null_Window 
-- uses the root window. 



PURPOSE : 

This procedure creates this panel object in the specified Panel_State 
and stores the panel Id in Inf o . Panel_Id . 



EXCEPTIONS: 

TAE .UNINITIALIZED_PTR is raised if the panel is not initialized 
TAE.TAE_FAIL is raised if the panel could not be created 



Connect_Panel 



Subprogram SPEC 



procedure Connect_Panel 
( Panels State 

: in TAE . Tae_Wpt . Wpt_Flags 

:= TAE . Tae_Wpt . WPT_PREFERRED ; 

Re lat ive_Window 

: in X_Windows .Window 

:= X_Windows .Null_Window ); 



-- Panel origin is offset from 
-- this X Window. Null_Window 
-- uses the root window. 



--I PURPOSE: 

--I If this panel doesn't exist, this procedure creates this panel object 
--! in the specif iec Panel_State and stores the panel Id in 
-- I Info . Panel_Id. 

--I If this panel does exist, it is set to the specified Panel_State. 
--I In this case, Relat ive_ Window is ignored. 

-- I EXCEPTIONS: 
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TAE . UNINITIALIZED_PTR is raised from Create_Panel if the panel is 
not initialized 

TAE . TAE_FAIL is raised from Create_Panel if the panel could not be 
created 

TAE . Tae_Wpt . BAD_S TATE is raised if the panel exists and the 
Panel State is an invalid state 



Destroy_Panel 



-- Subprogram SPEC 



procedure Destroy_Panel ; 



--I PURPOSE: 

--I This procedure erases a panel from the screen and de-allocates the 
--I associated panel object (not the target and view). 



--I EXCEPTIONS: 

--I TAE . Tae_Wpt . BAD_PANEL_ID is raised if Inf o . Panel_Id is an invalid 



NOTES : 



-- | Inf o . Panel_Id is set to TAE . NUL.L_PANEL._ID, and should not referenced 
-- I in any Wpt call until it is created again. 



Dispatch_Item 



Subprogram SPEC 



procedure Dispatch_Item 

( User_Context_Ptr -- Wpt Event Context for a PARM 

: in TAE . Tae_Wpt . Event_Context_Ptr ); -- event. 

> 

-- I PURPOSE: 

--I This procedure calls the Event Handler specified by User_Context_Ptr 
--I 

--I EXCEPTIONS: 

--I Application-specific 

end Panel_query; 
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2. PAN_QUERY_B.A 



-- *** TAE Plus Code Generator version V5 . 1 
--★★★File : pan_query_b . a 

__ *★★ Generated : May 21 16:12:31 1992 
__ ★★★ Revised by : Dogan Ozdemir 



* Panel_query -- Package BODY 

★ 

with TAE; use TAE; 
with Text_IO; 
with Global; 
use Global , Text__IO ; 



-- One "with" statement for each connected panel, 
with Pane l_ma inmenu ; 
with Panel_compsel ; 

package body Panel_query is 



NOTES : 

For each parameter that you have defined to be " event -generat ing " in 
this panel, there is an event handler procedure below. Each handler 
has a name that is a concatenation of the parameter name and "_Event". 
Add application-dependent logic to each event handler. (As generated 
by the WorkBench, each event handler simply logs the occurrence of 
the event . ) 

You may want to flag any changes you make to this file so that if 
you regenerate this file, you can more easily cut and paste your 
modifications back in. 

REGENERATED : 

The following WorkBench operations will cause regeneration of this 
f ile : 

The panel's name is changed (not title) 

For panel: 
query 

The following WorkBench operations will also cause regeneration: 

An item is deleted 

A new item is added to this panel 

An item's name is changed (not title) 

An item's data type is changed 

An item's generates events flag is changed 

An item's valids changed (if item is type string and connected) 
An item's connection information changed 
For the panel items: 

psdlselect, psdlin, directorylabel , cancel, 
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ok 



--ADDED 

psdlfile rString (1..80):= (others=>* l ); 
current :String (1..80):= (others=>' ’); 
ls_file :file_type; 
q_out file : f ile_type; 

f ile_name : Str ing ( 1 . . 7 ) := " ls_f ile" ; 

number : integer :=1; 

Dummy : Boolean; 



Initialize_Panel 



-- Subprogram BODY 



procedure Init ialize_Panel 
( Col lect ion_Read 

: in TAE.Tae_Co.Collection_Ptr ) is 

begin -- Init ialize_Panel 

Info := new TAE . Tae_Wpt . Event_Context ; 

Info . Collect ion := Collect ion_Read; 

TAE.Tae_Co.Co_Find ( Inf o . Col lect ion , "query_v", Info. View) ; 
TAE . Tae_Co . Co_Find ( Inf o . Col lect ion, "query_t" / Inf o . Target ) ; 

exception 

when TAE . UNINITI ALI ZED_PTR 

Text_IO . Put_Line ( " Panel_query . Init ialize_Panel : " 

Sc "Collect ion_Read not initialized."); 
raise; 

when TAE . Tae_Co . NO_SUCH_t^EMBER => 

Text_IO . Put_Line ( " Panel_query . Initialize_Panel : 

& "(View or Target) not in Collection."); 
raise; 

end Initialize_Panel ; 



Create_Panel 



Subprogram BODY 



procedure Create_Panel 
( Panel_State 
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: in TAE . Tae_Wpt . Wpt_Flags 

: = TAE . Tae_Wpt . WPT_PREFERRED ; 

Re lat ive_Window 

: in X_Windows .Window 

:= X_Windows . Nul l_Window ) is 



--I NOTES: (none) 



begin -- Create_Panel 



if Info . Panel_Id = Tae . Nul l_Panel_Id then 
TAE . Tae_Wpt . Wpt_NewPanel 
( Dummy 
Data_Vm 
V i ew_Vm 

Relative_Window 
User_Context 
Flags 
Panel_Id 

else 

Text_IO . Put_IL.ine ("Panel (query) is already displayed."); 
end if; 



=> " ", 

=> Info. Target, 

=> Info. View, 

=> Relative_Window, 
=> Info, 

=> Panel_State, 

=> Inf o . Panel_Id ); 



exception 



when TAE.UNINITIALIZED_PTR => 

Text_IO . Put_Line ( " Panel_query . Create_Panel : " 

Sc "Panel was not initialized prior to creation."); 
raise; 



when TAE . TAE_FAIL => 

Text_IO . Put_Line ( " Panel_query . Create_Panel : 
Sc "Panel could not be created."); 
raise ; 

end Create_Panel; 



Connect_Panel 



Subprogram BODY 



procedure Connect_Panel 
( Panel_State 

: in TAE .Tae_Wpt . Wpt_Flags 

: = TAE . Tae_Wpt . WPT_PREFERRED ; 

Relative_Window 
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: in X_Windows .Window 

:= X_Windows .Null_Window ) is 

--I NOTES: (none) 

begin -- Connect_Panel 

if Inf o . Panel_Id = Tae . Null_Panel_Id then 
Create_Panel 

( Relat ive_Window => Relat ive_Window, 

Panel_State => Panel_State ) ; 

else 

TAE . Tae_Wpt . Wpt__Set PanelState ( Inf o . Panel_Id / Panel_State) ; 
end i f ; 

exception 

when TAE . Tae_Wpt . BAD_STATE => 

Text_IO . Put_Line ( " Panel_query . Connect_Panel : 

Sc "Invalid panel state."); 
raise ; 

end Connect_Panel ; 



Destroy_Panel 



-- Subprogram BODY 



procedure Destroy_Panel is 
begin -- Destroy_Panel 

TAE.Tae_Wpt . Wpt_PanelErase (Info. Panel_Id) ; 
exception 

when TAE . Tae_Wpt . BAD_PANEL_ID => 

Text_IO. Put_Line ( " Panel_query . Destroy_Panel : " 

Sc " Inf o . Panel_Id is an invalid id."); 
raise; 

when TAE.Tae_Wpt . ERAS E_NULL_ PANEL => 

-- This panel has not been created yet, or has already been destroyed. 
-- Trap this exception and do nothing, 
null; 

end Destroy_Panel ; 

--+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 
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-- begin EVENT HANDLERS 



psdlselect_Event 



Subprogram SPEC & BODY 



procedure psdlselect_Event 

( Info : in TAE . Tae_Wpt . Event_Context_Ptr ) is 

--I PURPOSE: 

--I EVENT HANDLER. Insert application specific information. 

Value : array (1..1) of String ( 1 . . TAE . Tae.Taeconf . STRINGSIZE ) ; 

Count : TAE.Taeint; 

--ADDED 

N,M,K,S : integer :=1; 

Dummy : Boo 1 ean ; 

psdl_vec : s_vector ( 1 . . 1 ) : = (others=> new STRING ( 1 .. 80 )) ; 
begin -- psdlselect_Event 

-- Begin default generated code 

TAE . Tae_Vm. Vm_Extract_Count ( Inf o . Parm_Pt r , Count); 
if Count > 0 then 

TAE . Tae_Vm. Vm_Extract_SVAL ( Inf o . Parm_Ptr , 1, Value (1)) ; 

end if; 

--ADDED 

psdlfile :=Value(l) (1..80); 
parse_l ine (psdl f i le ) ; 
strlen (psdlfile, N) ; 
strlen ( Directory , M) ; 
if Is_a_directory then 
K : =N+M ; 

Directory ( 1 . . K) : =Directory ( 1 . . M ) & " / " &psdl f ile ( 1 . . (N-l ) ) ; 
if K>27 then 

directory _array := Directory ( (K-26) . .K) ; 

else 

directory _array : = Directory (1. .27) ; 
end if; 

TAE . Tae_Vm. Vm_SetString ( Info .View, "directory label " , 1 , directory _array # TAE 
. Tae_Vm . P_UPDATE ) ; 

TAE .Tae_Wpt . Wpt_ViewUpdate ( Info . Panel_Id, "directorylabel " , Info .View, "dir 
ectorylabel " ) ; 

system_call ( " Is -F " ^Directory ( 1 . . K) Sc " > ls_f ile" ) ; 
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list_directory ( ls_f ile # f ile_name, f ile__vec, number) ; 

TAE . Tae_Wpt . Wpt_SetStr ingConstraint s ( Inf o . Panel_Id, "psdlselect" , taeint ( n 
umber) , file_vec) ; 

Dummy : =TAE . Tae_Wpt . Wpt_Pending ; 
cur_dir_index : =cur_dir_index+l ; 

Current_directory (cur_dir_index) (1. .N) : =psdlf ile ( 1 . .N) ; 
for node in (N+l)..80 loop 

Current_directory ( cur_dir_index) (node) :=' ' ; 

end loop; 

system_call ( " rm ls_file" ); 

Is_a_directory : =FALSE ; 

elsif Upper_directory then 

strlen ( Current_directory ( cur_dir_index) , S) ; 
for drct in (M-S+l)..30 loop 
Directory (drct ):= ' 
end loop; 
if (M-S)>27 then 

directory_array : = Directory ( ( (M-S) -26) . . (M-S) ) ; 

else 

directory _array : = Directory ( 1 . . 27 ) ; 
end if; 

TAE .Tae_Vm . Vm_SetStr ing ( Info .View, "directory label " , 1 # directory_array , TAE 
. Tae_Vm . P_UPDATE ) ; 

TAE . Tae_Wpt . Wpt_ViewUpdate ( Inf o . Panel_Id, " di rectory label M , Info .View, "dir 
ectory label " ) ; 

cur_dir_index : =cur_dir_index-l ; 

system_call ( " Is -F " SeDirectory ( 1 . . (M-S) )&" > "£c ,, ls_file"); 

1 is t_di rectory ( ls_f ile, f ile__name, f ile_vec, number) ; 

TAE . Tae_Wpt . Wpt_SetStr ingCons train ts ( Inf o . Panel_Id, "psdlselect " , taeint (n 
umber) , f ile_vec) ; 

Dummy: =TAE.Tae_Wpt . Wpt_Pending ; 
system_call ( " rm ls_file"); 

Upper_directory : =FALSE; 

else - -A file name is selected 
psdl_vec(l) .all : =psdlf ile ; 

TAE . Tae_Wpt . Wpt_SetStr ingConst raints (Info. Panel_Id, "psdlin" , 1, psdl_vec) ; 
Dummy : =TAE . Tae_Wpt . Wpt_Pending ; 
end if; 



— End default generated code 
end psdlselect_Event ; 
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cancel_Event 



-- Subprogram SPEC & BODY 



procedure cancel_Event 

( Info : in TAE .Tae_Wpt . Event_Context_Ptr ) is 
--I PURPOSE: 

--I EVENT HANDLER. Insert application specific information. 

Value : array (1..1) of String ( 1 . . TAE . Tae_Taeconf . STRINGSIZE } ; 
Count : TAE . Taeint ; 

begin -- cancel_Event 

-- Begin default generated code 

TAE.Tae_Vm.Vm_Extract_Count ( Info . Parm_Ptr , Count) ; 
if Count > 0 then 

TAE . Tae_Vm . Vm_Extract_SVAL ( Inf o . Parm_Ptr , 1, Value (1) ) ; 
end i f ; 

-- End default generated code 

-- Begin generated code for Connection 

Connect_Panel (TAE . Tae_Wpt . WPT_INVISIBLE) ; 

Pane l_ma inmenu . Connect_Panel (TAE .Tae_Wpt . WPT_VISIBLE) ; 

-- End generated code for Connection 
--ADDED 

TAE .Tae_Wpt . Wpt_PanelReset ( Info . Panel_Id) ; 
for J in 1 . . 80 loop 
Directory (J) :=' * ; 

end loop; 

for K in 1 . . cur_dir_index loop 
for L in 1 . . 80 loop 

current_directory (K) (L) :=' ' ; 

end loop ; 
end loop; 

for A in 1..27 loop 

directory_array (A) :=' ' ; 

end loop; 
cur_dir_index : =1 ; 

end cancel_Event ; 
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ok_Event 



-- Subprogram SPEC & BODY 



procedure ok_Event 

( Info : in TAE . Tae_Wpt . Event_Context_Ptr ) is 
--I PURPOSE: 

-- I EVENT HANDLER. Insert application specific information. 

Value : array (1..1) of String ( 1 . . TAE . Tae_Taeconf . STRINGSIZE ) ; 
Count : TAE . Taeint ; 

--ADDED 

N, K, J, S : Integer : =1 ; 

teststring :String ( 1 . .80) := (others = >' ' ) ; 

begin -- ok_Event 

-- Begin default generated code 

TAE.Tae_Vm.Vm_Extract_Count ( Info . Parm_Pt r , Count) ; 
if Count > 0 then 

TAE . Tae_Vm . Vm_Ext ract_SVAL ( Inf o . Parm_Pt r , 1, Value (1) ) ; 

end if; 

--ADDED 

strlen (psdlf ile , N) ; 
strlen ( Directory , K) ; 
strlen ( library , J) ; 

system_call ( com& " cq "Sclibrary ( 1 . . J) &" "&Di rectory { 1 . . K ) &" / 

" kpsdlf i le { 1 . . N) Sc " " &query_outf i le ) ; 

list_components (q_out f ile , query_out f i le , f ile_vec, num_of_comp) ; 

--strlen ( f i le_vec ( 1 ) . all , S ) ; 

open (q_outf ile, mode=>in_f ile , name=>query_out f i le ) ; 

Text_IO . get_line (q_outf ile, test string, S) ; 
close (q_outfi le ) ; 
if teststring (1 .. 5) =" " then 

TAE. Tae_Wpt .Wpt_PanelMessage( info. panel_id, "NO MATCHING COMPONENT 
IS FOUND" ) ; 

system_call ( "rm query _out f ile " ) ; 

else 



TAE . Tae_Wpt . Wpt_SetStr ingConstraints ( Panel_compsel . Info . Panel_Id, " compse 
1 " , taeint ( num_of_comp) , f ile_vec) ; 

Dummy : =TAE . Tae_Wpt . Wpt_Pending ; 
system_call ( " rm query _outf ile" ) ; 

Query := True; 

Query_psdl ( 1 . . N) : = psdlf ile ( 1 . . N) ; 



246 



system_call ( "cp "^Directory ( 1 . . K ) & " / "kpsdlf ile ( 1 . .N) &" . " ) ; 

-- End default generated code 
-- Begin generated code for Connection 
Connect_Panel (TAE . Tae_Wpt . WPT_INVISIBLE) ; 

Panel_compsel . Connect_Panel (TAE.Tae_Wpt . WPT_VISIBLE) ; 

-- End generated code for Connection 
--ADDED 

TAE . Tae_Wpt . Wpt_PanelReset ( Info . Panel_Id) ; 
for X in 1 . . 80 loop 
Directory (X) : = ' ' ; 

end loop; 

for Y in 1 . . cur_dir_index loop 
for Z in 1 . . 80 loop 

current_directory ( Y) (Z) :=' ' ; 

end loop; 
end loop; 

for AA in 1..27 loop 

directory_array ( AA) : = ' 
end loop; 
cur_dir_index : =1 ; 

end if; 

end ok_Event; 

-- end EVENT HANDLERS 



Dispatch_Item 



-- Subprogram BODY 



procedure Dispatch_Item 

( User_Context_Ptr : in TAE . Tae_Wpt . Event_Context_Ptr ) is 
begin -- Dispatch_Item 

if TAE .Tae_Misc . s_equal ( "psdlselect " , User_Context_Ptr . Parm_Name ) 

then 

psdlselect_Event (User_Context_Ptr ) ; 
elsif TAE .Tae_Misc . s_equal ("cancel", User_Context_Ptr . Parm_Name ) then 
cancel_Event (User_Context_Ptr ) ; 

elsif TAE . Tae_Misc . s_equal ("ok", User_Context_Ptr . Parm_Name ) then 
ok_Event (User_Context_Ptr ) ; 
end if; 

end Dispatch_Item ; 
end Panel_query; 
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L. 



PANEL COMPSEL PACKAGE 



1. PAN COMPSEL S.A 

-- TAE Plus Code Generator version V5 . 1 

-- *** File : pan_compsel_s . a 

-- *** Generated : May 21 16:12:31 1992 
-- *** Revised by : Dogan Ozdemir 

_ _ ★ 

* Panels compsel -- Package SPEC 

★ 



with TAE; 
with X_Windows ; 

package Panel_compsel is 



PURPOSE: 

This package encapsulates the TAE Plus panel: compsel 

These subprograms enable panel initialization, creation, destruction 
and event dispatching. For more advanced manipulation of the panel 
using the TAE package, the panel's Event_Context (Info) is provided 
It includes the Target and View (available after initialization) 
and the Panel_Id (available after creation) . 



REGENERATED : 

The following Workbench operations will cause regeneration of this 
file: 

The panel's name is changed (not title) 

For panel: 
compsel 



Info : TAE.Tae_Wpt . Event_Context_Ptr ; -- panel information 



In it ial ize_Panel 



Subprogram SPEC 



procedure Initial ize_Panel 

( Collection_Read -- TAE Collection read from 

: in TAE.Tae_Co.Collection_Ptr ) ; -- resource file 

--I PURPOSE: 

--I This procedure initializes the Info. Target and Info. View for this 
-- | panel 
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— I 

--I EXCEPTIONS: 

-- I TAE . UNINITIAL I ZED_PTR is raised if Collect ion_Read not initialized 
--| TAE . Tae_Co . NO_SUCH_MEMBER is raised if the panel is not in 
-- | Collect ion_Read 



Create_Panel 



-- Subprogram SPEC 



procedure Create_Panel 
( Panel_State 

: in TAE . Tae_Wpt . Wpt_F lags 

:= TAE . Tae_Wpt . WPT_ PREFERRED ; 

Re la t i veJWindow 

: in X_Windows .Window 

:= X_Windows .Null_Window ); 



-- Flags sent to Wpt_NewPanel . 



-- Panel origin is offset from 
-- this X Window. Null_Window 
-- uses the root window. 




PURPOSE: 

This procedure creates this panel object in the specified Panel_State 
and stores the panel Id in Info . Panel_Id . 



EXCEPTIONS: 

TAE . UNINITIAL I ZED_PTR is raised if the panel is not initialized 
TAE.TAE_FAIL is raised if the panel could not be created 



Connect_Panel 



Subprogram SPEC 



procedure Connect_Panel 
( Panel_State 

: in TAE . Tae_Wpt .Wpt_F lags 

: = TAE . Tae_Wpt . WPT_PREFERRED ; 

Relat ive_Window 

: in X_Wi n do ws .Window 

: = X_Windows ,Null_Window ); 



-- Panel origin is offset from 
-- this X Window. Null_Window 
-- uses the root window. 



--I PURPOSE: 

-- I If this panel doesn't exist, this procedure creates this panel object 
--I in the specif iec Panel_State and stores the panel Id in 
-- I Info . Panel_Id . 

--I If this panel does exist, it is set to the specified Panel_State. 
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In this case, Relat ive_Window is ignored. 



--I EXCEPTIONS: 

--I TAE . UNINITIALIZED_PTR is raised from Create_Panel if the panel is 
-- I not initialized 

--I TAE.TAE_FAIL is raised from Create_Panel if the panel could not be 



created 

TAE . Tae_Wpt . BAD__STATE is raised if the panel exists and the 
Panel State is an invalid state 



Destroy_Panel 



-- Subprogram SPEC 



procedure Destroy_Panel ; 



--I PURPOSE: 

--I This procedure erases a panel from the screen and de-allocates the 
-- I associated panel object (not the target and view) . 



--I EXCEPTIONS: 

-- I TAE . Tae_Wpt . BAD_ PANE L_ID is raised if Info . Panel_Id is an invalid 



NOTES : 



--I Inf o . Panel_Id is set to TAE . NULL_PANEL_ID, and should not referenced 
--I in any Wpt call until it is created again. 



Dispatch_Item 



-- Subprogram SPEC 



procedure Dispatch_Item 

( User_Context_Ptr -- Wpt Event Context for a PARM 

: in TAE . Tae_Wpt . Event_Context_Ptr ); -- event. 

--I PURPOSE: 

--I This procedure calls the Event Handler specified by User_Context_Ptr 
-- I 

-- I EXCEPTIONS: 

-- I Application-specific 
— I 

end Panel_compsel ; 
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2. PAN COMPSEL B.A 



-- *** TAE Plus Code Generator version V5 . 1 
__ ★★★ File : pan_compsel__b . a 

-- *** Generated : May 21 16:12:31 1992 
-- *** Revised by : Dogan Ozdemir 

_ ★ 

* Panel_compsel -- Package BODY 



with TAE; use TAE; 
with Text_IO; 
with Global; 
use Global , Text_IO ; 

-- One "with” statement for each connected panel, 
with Pane l_ma inmenu; 
with Panel__viewpsdl ; 
with Panel_select ; 



package body Panel_compsel is 



NOTES : 

For each parameter that you have defined to be "event-generating" in 
this panel, there is an event handler procedure below. Each handler 
has a name that is a concatenation of the parameter name and "_Event". 
Add application-dependent logic to each event handler. (As generated 
by the WorkBench, each event handler simply logs the occurrence of 
the event . ) 



You may want to flag any changes you make to this file so that if 
you regenerate this file, you can more easily cut and paste your 
modifications back in. 



REGENERATED : 

The following WorkBench operations will cause regeneration of this 
file : 

The panel's name is changed (not title) 

For panel: 
comps el 



The 



For 



following WorkBench operations will also cause regeneration: 

An item is deleted 

A new item is added to this panel 

An item's name is changed (not title) 

An item's data type is changed 

An item's generates events flag is changed 

An item's valids changed (if item is type string and connected) 
An item's connection information changed 
the panel items: 
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cancel , 



view, 



select , 



comps el , 



--ADDED 

comp : String ( 1 .. 80 ): = (others=>' '); 



In it ialize_Panel 



-- Subprogram BODY 



procedure Init ialize_Panel 
( Collect ion_Read 

: in TAE . Tae_Co . Collect ion_Ptr ) is 



begin -- Init ial ize_Panel 

Info := new TAE . Tae_Wpt . Event_Context ; 

Info .Collect ion := Collect ion_Read; 

TAE . Tae_Co . Co_Find ( Info .Collection, " compsel_v" , Info. View) ; 
TAE . Tae_Co . Co_Find ( Info . Collection, " comps el_t " , Info . Target ) ; 

except ion 

when TAE . UNINITIALIZED_PTR => 

Text_IO . Put_Line ( " Panel_compsel . Init ialize_Panel : 

& "Collect ion_Read not initialized."); 
raise; 

when TAE . Tae_Co . NO_SUCH_MEMBER => 

Text_IO . Put_Line (" Panel_compsel . Init ial i ze_Panel : " 

Sc "(View or Target) not in Collection."); 
raise; 

end Init ial ize_Panel; 



Create_Panel 



-- Subprogram BODY 



procedure Create_Panel 
( Panel_State 

: in TAE . Tae_Wpt . Wpt_Flags 

: = TAE . Tae_Wpt . WPT_PREFERRED ; 

Relat ive_Window 

: in X_Windows . Window 
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X_Windows . Nul l_Window ) is 



begin -- Create_Panel 



if Inf o . Panel_Id = Tae.Nul 
TAE . Tae_Wpt . Wpt_NewPanel 
( Dummy 



Tae .Null_Panel_Id then 



= > " m 

=> Info. Target, 

=> Info. View, 

=> Relat ive_Window, 
=> Info, 

=> Panel_State, 

=> Info . Panel_Id ); 



Data_Vm 
V i ew_Vm 

Relat ive_Window 
User_Context 
Flags 
Panel_Id 



else 



Text_IO . Put_Line ("Panel (compsel) is already displayed."); 
end if; 

exception 

when TAE. UNINITIAL I ZED_PTR => 

Text_IO . Put_Line ( " Panel_compsel . Create_Panel : " 

Sc "Panel was not initialized prior to creation."); 
raise ; 

when TAE . TAE_FAIL => 

Text_IO . Put_Line ( " Panel_compsel . Create_Panel : " 

Sc "Panel could not be created.") ; 
raise; 

end Create_Panel ; 



procedure Connect_Panel 
( Panel_State 

: in TAE . Tae_Wpt .Wpt_F lags 

:= TAE . Tae_Wpt . WPT_PREFERRED ; 

Re lat i ve_Window 

: in X_Windows .Window 

:= X_Windows . Null_Window ) is 

begin -- Connect.Panel 

if Inf o . Panel_Id = Tae .Null_Panel_Id then 
Create_Panel 



Connect_Panel 



Subprogram BODY 
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( Relat ive_Window 
Panel_State 



=> Relat ive__Window, 
=> Panel_State ) ; 



else 

TAE . Tae_Wpt . Wpt_SetPanelState ( Inf o . Panel_Id, Panel_State) ; 
end if; 

exception 

when TAE . Tae_Wpt . BAD_STATE => 

Text_IO . Put_Line ( " Panel_compsel . Connect_Panel : " 

& "Invalid panel state."); 
raise; 

end Connect_Panel ; 



Destroy_Panel 



-- Subprogram BODY 



procedure Destroy_Panel is 



begin -- Destroy_Panel 

TAE . Tae_Wpt . Wpt_PanelErase ( Info . Panel_Id) ; 
exception 

when TAE . Tae_Wpt . BAD_PANEL_ID => 

Text_IO . Put_Line ( " Panel_compsel . Destroy_Panel : 

Sc " Inf o . Panel_Id is an invalid id."); 
raise; 

when TAE . Tae_Wpt . ERAS E_NULL_ PANEL => 

— This panel has not been created yet, or has already been destroyed. 
-- Trap this exception and do nothing, 
null ; 

end Destroy_Panel ; 

— +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 
-- begin EVENT HANDLERS 



comps el_E vent 



Subprogram SPEC Sc BODY 
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procedure compsel_Event 

( Info : in TAE . Tae_Wpt . Event_Context_Ptr ) is 

--I PURPOSE: 

--I EVENT HANDLER. Insert application specific information. 

--I 

-- I NOTES: Selects the component from the list 

Value : array (1..1) of String ( 1 .. TAE .Tae_Taeconf . STRINGS IZE) ; 
Count : TAE.Taeint; 

begin -- compsel_Event 

-- Begin default generated code 

TAE . Tae_Vm . Vm_Extract_Count ( Inf o . Parm_Ptr , Count); 
if Count > 0 then 

TAE . Tae_Vm. Vm_Extract_SVAL ( Inf o . Parm_Ptr , 1, Valued) ); 

else 
null; 
end if; 

--ADDED 

comp ( 1 . . 80 ) : =Value ( 1 ) ( 1 . . 80 ) ; 



-- End default generated code 
end compsel_Event ; 



cancel Event 



-- Subprogram SPEC & BODY 



procedure cancel_Event , 

( Info : in TAE . Tae_Wpt . Event_Context_Ptr ) is 

--I PURPOSE: 

--I EVENT HANDLER. Insert application specific information. 

--I 

--I NOTES: (none) 

Value : array (1..1) of String ( 1 .. TAE . Tae_Taeconf . STRINGS IZE) ; 
Count : TAE.Taeint; 

Q : Integer:=l; 

begin -- cancel_Event 

-- Begin default generated code 



255 



TAE . Tae_Vm . Vm_Extract_Count ( Inf o . Parm_Ptr , Count) ; 
if Count > 0 then 

TAE . Tae_Vm . Vm_Extract_SVAL ( Inf o . Parm_Ptr , 1, Valued) ) ; 

else 
null; 
end if; 
if Query then 
Query : =False; 
strlen (Query_psdl , Q ) ; 
system_cal 1 ( "rm " &Query_psdl (1. .Q) ) ; 
end i f ; 

-- End default generated code 

-- Begin generated code for Connection 

Connect_Panel (TAE . Tae_Wpt . WPT_INVISIBLE) ; 

Pane l_ma inmenu . Connect_Panel (TAE .Tae_Wpt . WPT_VISIBLE) ; 

-- End generated code for Connection 
--ADDED 

TAE . Tae_Wpt . Wpt_PanelReset ( Info . Panel_Id) ; 
for Clean in 1 . . (num_of_comp) loop 
for ch in 1..80 loop 

f ile_vec (Clean) . all (ch) : = ' ' ; 

end loop; 
end loop; 

comp ( 1 . . 5 ) : = " " ; 



end cancel_Event ; 



view_Event 



-- Subprogram SPEC & BODY 



procedure view_Event 

( Info : in TAE . Tae_Wpt . Event_Context_Ptr ) is 
--! PURPOSE: 

--! EVENT HANDLER. Insert application specific information. 

— I 

--I NOTES: (none) 

Value : array (1..1) of String ( 1 . .TAE . Tae_Taeconf . STRINGS I ZE) ; 
Count : TAE.Taeint; 

L,S : Integer :=1; 
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begin -- view_Event 



-- Begin default generated code 

TAE.Tae_Vm.Vm_Extract_Count ( Inf o . Parm_Pt r , Count) ; 
if Count > 0 then 

TAE . Tae_Vm . Vm_Ext ract_SVAL ( Inf o . Parm_Ptr , 1, Value (1) ) ; 

end if; 

--ADDED 

if comp (1.. 5) = " " then 

TAE . Tae_Wpt . Wpt_PanelMessage ( inf o . panel_id, "NO COMPONENT IS 
SELECTED H ) ; 
else 

component : = comp; 
strlen ( component , L) ; 
strlen ( library , S) ; 

system_call (com&" cv " Sdibrary ( 1 . . S) &" "& component ( 1 .. L) & " outpsdl 
outspec outbody" ) ; 

-- End default generated code 

-- Begin generated code for Connection 

Connect_Panel (TAE . Tae_Wpt . WPT_INVISIBLE) ; 

Panel_vie T ^psdl . Connect_Panel (TAE . Tae_Wpt . WPT_VISIBLE) ; 

-- End generated code for Connection 
end if; 

end view_Event; 



select_Event 



-- Subprogram SPEC U BODY 



procedure select_Event 

( Info : in TAE . Tae_Wpt . Event_Context_Ptr ) is 
--I PURPOSE: 

-- I EVENT HANDLER. Insert application specific information. 

--I 

--I NOTES: Selected component will be further munipulated if this 
procedure 

--I is invoked. 

Value : array (1..1) of String ( 1 . .TAE . Tae_Taeconf . STRINGS I ZE) ; 
Count : TAE . Taeint ; 
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begin 



select_Event 



-- Begin default generated code 

TAE . Tae_Vm . Vm_Extract_Count ( Inf o . Parm_Ptr , Count) ; 
if Count > 0 then 

TAE . Tae_Vm . Vm_Extract_SVAL ( Inf o . Parm_Ptr , 1, Value (1) ) ; 

end if; 

--ADDED 

if comp (1.. 5) = " " then 

TAE .Tae_Wpt . Wpt_PanelMessage ( info .panel_id, "NO COMPONENT IS 
SELECTED" ) ; 
else 

component := comp; 

-- Begin generated code for Connection 

Connect_Panel (TAE . Tae_Wpt . WPT_ INVISIBLE ) ; 

Panel_select . Connect_Panel (TAE . Tae_Wpt . WPT_VISIBLE) ; 

-- End generated code for Connection 
end i f ; 

end select_Event ; 

-- end EVENT HANDLERS 



Dispatch_Item 



-- Subprogram BODY 



procedure Dispatch_Item 

( User_Context_Ptr : in TAE . Tae_Wpt . Event_Context_Ptr ) is 
begin -- Dispatch_Item 

if TAE . Tae_Misc . s_equal ("compsel" , User_Context_Ptr . Parm_Name ) then 
compsel_Event (User_Context_Ptr ) ; 

els if TAE . Tae_Misc . s_equal ("cancel", User_Context_Ptr . Parm_Name ) then 
cancel_Event (User_Context_Ptr ) ; 

els if TAE .Tae_Misc . s_equal ("view", User_Context_Ptr . Parm_Name ) then 
view_Event (User_Context_Ptr ) ; 

elsif TAE .Tae_Misc . s_equal ("select", User_Context_Ptr . Parm_Name ) then 
select_Event (User_Context_Ptr ) ; 

end if; 

end Dispatch_Item; 
end Pane l_comps e 1 ; 
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M. 



PANEL VIEWPSDL PACKAGE 



1. PAN_V1EWPSDL_S.A 

__ *** TAE Plus Code Generator version V5 . 1 
__ *** File : pan_viewpsdl_s . a 

__ * * * Generated : Jul 13 16:13:09 1992 
-- *** Revised by : Dogan Ozdemir 

* 

* Panel_viewpsdl -- Package SPEC 

* 



with TAE; 
with X_Windows; 

package Panel_viewpsdl is 



PURPOSE: 

This package encapsulates the TAE Plus panel: viewpsdl 

These subprograms enable panel initialization, creation, destruction 
and event dispatching. For more advanced manipulation of the panel 
using the TAE package, the panel's Event_Context (Info) is provided 
It includes the Target and View (available after initialization) 
and the Panel_Id (available after creation) . 

REGENERATED : 

The following Workbench operations will cause regeneration of this 
file. 

The panel's name is changed (not title) 

For panel: 
viewpsdl 



Info : TAE.Tae_Wpt . Event_Context_Ptr ; -- panel information 



In it ialize_Panel 



-- Subprogram SPEC 



procedure Init ialize_Panel 

( Collection_Read -- TAE Collection read from 

: in TAE.Tae_Co.Collection_Ptr ); -- resource file 

--I PURPOSE: 

--I This procedure initializes the Info. Target and Info. View for this 
--I panel 
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-- | EXCEPTIONS: 

-- I TAE . UNINITIALIZED_PTR is raised if Col lect ion_Read not initialized 
-- I TAE . Tae_Co . NO_SUCH_MEMBER is raised if the panel is not in 
--I Collect ion_Read 



Create_Panel 



-- Subprogram SPEC 



procedure Create_Panel 
( Panel_State 

: in TAE . Tae_Wpt .Wpt_F lags 

: = TAE . Tae_Wpt . WPT_PREFERRED ; 

Relat ive_Window 

: in X_Windows . Window 

:= X_Windows . Null_Window ); 



-- Flags sent to Wpt_NewPanel . 



-- Panel origin is offset from 
-- this X Window. Null_Window 
-- uses the root window. 



I PURPOSE: 

This procedure creates this panel object in the specified Panel_State 
and stores the panel Id in Inf o . Panel_Id . 

EXCEPTIONS : 

TAE . UNINITIALIZED_PTR is raised if the panel is not initialized 
TAE.TAE_FAIL is raised if the panel could not be created 



Connect_Panel 



-- Subprogram SPEC 



procedure Connect_Panel 
( Panel_State 

: in TAE . Tae_Wpt . Wpt_Flags 

: = TAE . Tae_Wpt . WPT_PREFERRED ; 



Relat i ve_Window 

: in X_Windows .Window 

:= X_Windows .Null_Window ); 



-- Panel origin is offset from 
-- this X Window. Null_Window 
-- uses the root window. 



PURPOSE: 

--I If this panel doesn't exist, this procedure creates this panel object 
--I in the specif iec Panel_State and stores the panel Id in 
-- I Info . Panel_Id . 

-- I If this panel does exist, it is set to the specified Panel_State. 
In this case, Relat ive_Window is ignored. 

--I EXCEPTIONS: 
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TAE . UNINITIALIZED_PTR is raised from Create_Panel if the panel is 
not initialized 

TAE.TAE_FAIL is raised from Create_Panel if the panel could not be 
created 

TAE . Tae_Wpt . BAD_STATE is raised if the panel exists and the 
Panel_State is an invalid state 



Destroy_Panel 



-- Subprogram SPEC 



procedure Dest roy_Pane 1 ; 



--I PURPOSE: 

-- I This procedure erases a panel from the screen and de-allocates the 
--I associated panel object (not the target and view). 



-- EXCEPTIONS: 

-- I TAE . Tae_Wpt . BAD_PANEL_ID is raised if Inf o . Panel_Id is an invalid 



— I 



NOTES : 

Info . Pane l_Id is set to TAE . NULL_PANEL_ID , and should not referenced 
in any Wpt call until it is created again. 



Di spat ch_I tern 



Subprogram SPEC 



procedure Dispatch_Item 

( User_Context_Ptr -- Wpt Event Context for a PARK 

: in TAE . Tae_Wpt . Event_Context_Ptr ); -- event. 

-- I PURPOSE: 

--I This procedure calls the Event Handler specified by User_Context_Ptr 
--I 

--I EXCEPTIONS: 

-- I Application-specific 

end Panel_ viewpsdl ; 
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2. PAN VIEWPSDL B.A 



-- *** TAE Plus Code Generator version V5 . 1 
-- *** File : pan_viewpsdl_b . a 

-- *** Generated : Jul 13 16:13:09 1992 
-- *** Revised by : Dogan Ozdemir 

it*************************************************************.-*.**** 

* 

* Panel_viewpsdl -- Package BODY 

★ 

with TAE; use TAE; 
with Text_IO; 
with Global; 
use Global , Text_IO ; 

-- One "with" statement for each connected panel, 
with Panel_compsel; 
with Panel_viewspec; 



package body Panel_viewpsdl is 



NOTES : 

For each parameter that you have defined to be "event-generating" in 
this panel, there is an event handler procedure below. Each handler 
has a name that is a concatenation of the parameter name and "_Event". 
Add application-dependent logic to each event handler. (As generated 
by the WorkBench, each event handler simply logs the occurrence of 
the event . ) 

You may want to flag any changes you make to this file so that if 
you regenerate this file, you can more easily cut and paste your 
modifications back in. 



REGENERATED : 



-- I The following WorkBench operations will cause regeneration of this 
-- I f ile : 



The panel’s name is changed (not title) 
For panel: 
viewpsdl 



The 



For 



following WorkBench operations will also cause regeneration: 

An item is deleted 

A new item is added to this panel 
An item's name is changed (not title) 

An item's data type is changed 

An item's generates events flag is changed 

An item's valids changed (if item is type string and connected) 
An item's connection information changed 
the panel items: 
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cancel , 



viewspec 



Ini t ial ize_Panel -- Subprogram 


BODY 


procedure Initial ize_Panel 
( Collect ion_Read 

: in TAE . Tae_Co . Col lection_Ptr ) is 




begin -- Init ialize_Panel 




Info := new TAE . Tae_Wpt . Event_Context ; 

Info . Collect ion := Collect ion_Read; 

TAE.Tae_Co.Co_Find ( Info . Col lection, " viewpsdl_v“ , Info. View) ; 
TAE . Tae_Co . Co_Find ( Info . Collection, " viewpsdl_t ", Inf o . Target) ; 


exception 




when TAE . UNINITIALIZED_PTR => 

Text_IO . Put_Line ( " Panel_viewpsdl . Ini t ialize_Pane 1 : 
Sc "Collect ion__Read not initialized."); 
raise ; 


tl 


when TAE . Tae_Co . NO_SUCH_MEMBER => 

Text_IO . Put_Line ( " Panel_viewpsdl . Init ial ize_Panel : 
& "(View or Target) not in Collection."); 
raise ; 


II 


end Initialize_Panel ; 




Create_Panel -- Subprogram 

» 


BODY 



procedure Create_Panel 
( Panel_State 

: in TAE.Tae_Wpt .Wpt_Flags 

: = TAE . Tae_Wpt . WPT_PREFERRED ; 

Relative_Window 

: in X_Windows .Window 

:= X_Windows .Null_Window ) is 



begin -- Create_Panel 
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if Info . Panel_Id = Tae.Nul 
TAE.Tae_Wpt . Wpt_NewPanel 
( Dummy 



Tae .Null_Panel_Id then 



Data_ Vm 
View_Vm 

Relative_Window 

User_Context 

Flags 

Panel_Id 



=> Info. Target, 

=> Info. View, 

=> Relat ive_Window, 
=> Info, 

=> Panel_State, 

=> Info . Panel_Id ); 



else 



Text_IO . Put_Line ("Panel (viewpsdl) is already displayed."); 
end if; 

exception 

when TAE . UNINITIALIZED_PTR => 

Text_IO . Put_Line ( " Panel_viewpsdl . Create_Panel : 

& "Panel was not initialized prior to creation."); 
raise; 

when TAE . TAE_FAIL => 

Text_IO . Put_Line ( " Panel_viewpsdl . Create_Panel : 

& "Panel could not be created."); 
raise; 

end Create_Panel ; 



procedure Connect__Panel 
( Panel_State 

: in TAE . Tae_Wpt . Wpt_Flags 

: = TAE . Tae_Wp t . WPT_PREFERRED ; 

Re lat i ve_Window 

: in X_Windows .Window 

:= X_Windows .Null_Window ) is 

Dummy : Boolean ; 

L : Integer :=1; 

label : St r ing ( 1 . . 80 ) : = ( others => ' 1 ) ; 

begin -- Connect_Panel 

if Info . Panel_Id = Tae . Null_Panel_Id then 
Create_Panel 



Connect_Panel 



Subprogram BODY 



( Relat ive_Window 



=> Relat ive_Window, 
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Panel_State 



=> Panel_State ) ; 



else 

TAE . Tae_Wpt .Wpt_Set Pane ISt ate ( Inf o . Panel_Id , Panel_State) ; 
end i f ; 



--ADDED 

strlen ( component , L) ; 

label ( 1 . . (L+5 ) ) : =component ( 1 . . L ) & " . psdl " ; 

TAE . Tae_Vm. Vm_SetStr ing ( Info .View, " psdl label " , 1 , label ( 1 . . (L+5 ) ) , TAE . Tae_ 
Vm.P_UPDATE) ; 

TAE . Tae_Wpt . Wpt_ViewUpdat e ( Info . Panel_Id, "psdl label " , Info .View, " psdllabe 

1 - ) ; 



Dummy : =TAE . Tae_Wpt . Wpt_Pending ; 
exception 

when TAE . Tae_ Wpt . BAD_STATE => 

Text_IO . Put_Line ( " Panel_viewpsdl . Connect_Panel : 
& "Invalid panel state."); 
raise; 

end Connect_Panel ; 



Destroy_Panel 



-- Subprogram BODY 



procedure Destroy_Panel is 
begin -- Destroy_Panel 

TAE . Tae_ Wpt . Wpt_PanelErase ( Info . Panel_Id) ; 
exception 

when TAE . Tae_Wpt . BAD_PANEL_ID => 

Text_IO . Put_Line ( " Panel_viewpsdl . Destroy_Panel : " 

Sc " Info . Panel_Id is an invalid id."); 
raise; 

when TAE . Tae_Wpt . ERASE_NULL_PANEL => 

-- This panel has not been created yet, or has already been destroyed. 
-- Trap this exception and do nothing, 
null ; 

end Destroy_Panel ; 
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--++++++++++++++++++++++++++++ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 
-- begin EVENT HANDLERS 



cance l_Event 



-- Subprogram SPEC Sc BODY 



procedure cancel_Event 

( Info : in TAE . Tae_Wpt . Event_Context_Ptr ) is 
--I PURPOSE: 

--I EVENT HANDLER. Insert application specific information. 

Value : array (1..1) of String ( 1 .. TAE . Tae_Taeconf . STRINGS I ZE) ; 
Count : TAE.Taeint; 

begin -- cancel_Event 

-- Begin default generated code 

TAE . Tae_Vm . Vm_Ext ract_Count ( Inf o . Parm_Ptr , Count) ; 
if Count > 0 then 

TAE.Tae_Vm.Vm_Extract_SVAL ( Inf o . Parm_Ptr , 1, Value (1) ) ; 

end if; 

--ADDED 

system_call ( " rm outpsdl"); 
system_call ( " rm outspec") ; 
system_call ( "rm outbody" ) ; 

-- End default generated code 

-- Begin generated code for Connection 

Connect_Pane 1 (TAE . Tae_Wpt . WPT_INVISIBLE) ; 

Panel_compsel . Connect_Panel (TAE . Tae_Wpt .WPT_VISIBLE ) ; 

-- End generated code for Connection 

end cancel_Event; 



viewspec_Event 



-- Subprogram SPEC Sc BODY 



procedure viewspec_Event 

( Info : in TAE . Tae_Wpt . Event_Context_Ptr ) is 
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-- I PURPOSE: 

-~l EVENT HANDLER. Insert application specific information. 

--I 

--I NOTES: (none) 

Value : array (1..1) of String ( 1 . . TAE . Tae_Taeconf . STRINGSIZE) ; 
Count : TAE.Taeint; 

begin -- viewspec_Event 

-- Begin default generated code 

TAE.Tae_Vm. Vm_Extract_Count ( Inf o . Parm_Ptr , Count) ; 
if Count > 0 then 

TAE . Tae_Vm . Vm_Extract_SVAL ( Inf o . Parm_Ptr , 1, Value (1)) ; 

end if; 

-- End default generated code 
-- Begin generated code for Connection 

Panel_viewspec . Connect_Panel (TAE . Tae_Wpt . WPT_VISIBLE) ; 

-- End generated code for Connection 

end viewspec_Event ; 

-- end EVENT HANDLERS 



Dispatch_Item 



Subprogram BODY 



procedure Dispatch_Item 

( User_Context_Ptr : in TAE . Tae_Wpt . Event_Context_Ptr ) is 

i 



begin -- Dispatch_Item 

if TAE.Tae_Misc .s_equal ("cancel", User_Context_Ptr . Parm_Name ) then 
cancel_Event (User_Context_Ptr ) ; 

els if TAE . Tae_Misc . s_equal ( "viewspec 11 , User_Context_Ptr . Parm_Name ) 

then 

viewspec_Event (User_Context_Ptr ) ; 
end if; 

end Dispatch_Item; 
end Panel_viewpsdl ; 
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N. PANEL VIEWSPEC PACKAGE 



1. PAN_VTEWSPEC_S.A 

__ **+ TAE plus Code Generator version V5 . 1 
-- *** File : pan_viewspec_s . a 

-- *** Generated : Jul 13 16:13:09 1992 
__ +*★ Revised by : Dogan Ozdemir 

★ 

* Panel_viewspec -- Package SPEC 

★ 



with TAE ; 
with X_W i ndows ; 

package Panel_viewspec is 



PURPOSE: 

This package encapsulates the TAE Plus panel: viewspec 

These subprograms enable panel initialization, creation, destruction 
and event dispatching. For more advanced manipulation of the panel 
using the TAE package, the panel's Event_Context (Info) is provided 
It includes the Target and View (available after initialization) 
and the Panel_Id (available after creation) . 

REGENERATED : 

The following Workbench operations will cause regeneration of this 
file: 

The panel's name is changed (not title) 

For panel: 
viewspec 



Info : TAE . Tae_Wpt . Event_Context_Ptr ; -- panel information 



In it ialize_Panel 



-- Subprogram SPEC 



procedure Init iali ze_Panel 

( Collection_Read -- TAE Collection read from 

: in TAE . Tae_Co . Collect ion_Ptr ); -- resource file 

--I PURPOSE: 

-- I This procedure initializes the Info. Target and Info. View for this 
- - | panel 
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--I EXCEPTIONS: 

--I TAE. UNINITIAL I ZED_PTR is raised if Collect ion_Read not initialized 
-- I TAE . Tae_Co . N0 — SUCH_MEMBER is raised if the panel is not in 
--I Collect ion_Read 



Create_Panel 


-- Subprogram SPEC 


procedure Create_Panel 
( Panel_State 

: in TAE . Tae_Wpt . Wpt_Flags 

: = TAE . Tae_Wpt . WPT_PREFERRED ; 


-- Flags sent to Wpt_NewPanel . 


Re la t ive_Window 

: in X_Windows . Window 

:= X_Windows .Null_Window ); 


-- Panel origin is offset from 
-- this X Window. Null_Window 
-- uses the root window. 


--I PURPOSE: 

-- 1 This procedure creates this panel object in the specified Panel_State 
-- 1 and stores the panel Id in Info . Panel_Id . 

i 


— i 

--I EXCEPTIONS: 

--I TAE .UNINITIALIZED_PTR is raised if 
--I TAE . TAE_FAIL is raised if the panel 


the panel is not initialized 
could not be created 


Connect_Panel 


-- Subprogram SPEC 


procedure Connect_Panel 
( Panel_State 

: in TAE . Tae_Wpt .Wpt_Flags 

:= TAE . Tae_Wpt . WPT_PREFERRED ; 




Relative_Window 

: in X_Windows .Window 

:= X_Windows .Null_Window ); 


-- Panel origin is offset from 
-- this X Window. Null_Window 
-- uses the root window. 


--I PURPOSE: 

--I If this panel doesn't exist, this procedure creates this panel object 
--I in the specif iec Panel_State and stores the panel Id in 

--I Inf o . Panel_Id . 

--I If this panel does exist, it is set to the specified Panel_State. 
-- 1 In this case, Relat ive_Window is ignored. 



EXCEPTIONS : 
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TAE . UNINITIALIZED_PTR is raised from Create_Panel if the panel is 
not initialized 

TAE.TAE_FAIL is raised from Create_Panel if the panel could not be 
created 

TAE . Tae_Wpt . BAD_STATE is raised if the panel exists and the 
Panel State is an invalid state 



Destroy_Panel 



-- Subprogram SPEC 



procedure Dest roy_Panel ; 



--I PURPOSE: 

--I This procedure erases a panel from the screen and de-allocates the 
--I associated panel object (not the target and view). 



--I EXCEPTIONS: 

--I TAE . Tae_Wpt . BAD_PANEL_ID is raised if Inf o . Panel_Id is an invalid 



NOTES : 



--I Info . Panel_Id is set to TAE .NULL_PANEL_ID, and should not referenced 
-- I in any Wpt call until it is created again. 



Di spa tch_I tern 



-- Subprogram SPEC 



procedure Dispatch_Item 

( User_Context_Ptr -- Wpt Event Context for a PARM 

: in TAE . Tae_Wpt . Event_Context_Ptr ); -- event. 

--I PURPOSE: 

--I This procedure calls the Event Handler specified by User_Context_Ptr 
-- I 

— I EXCEPTIONS: 

-- I Application-specific 

end Panel_viewspec ; 
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2. PAN_VIEWSPEC_B.A 

__ *** TAE Plus Code Generator version V5 . 1 
-- *** File : pan_viewspec_b . a 

__ ***• Generated : Jul 13 16:13:09 1992 
__ *★* Revised by : Dogan Ozdemir 

_ _ ★ 

* Panel_viewspec -- Package BODY 

★ 

with TAE; use TAE; 
with Text_IO; 
with Global; 
use Text_IO , Global ; 



-- One "with" statement for each connected panel, 
with Panel_viewpsdl ; 
with Panel_viewbody ; 

package body Panel_viewspec is 



NOTES : 

For each parameter that you have defined to be ” event -generat ing " in 
this panel, there is an event handler procedure below. Each handler 
has a name that is a concatenation of the parameter name and "_Event" . 
Add application-dependent logic to each event handler. (As generated 
by the WorkBench, each event handler simply logs the occurrence of 
the event . ) 

You may want to flag any changes you make to this file so that if 
you regenerate this file, you can more easily cut and paste your 
modifications back in. 

REGENERATED : 

The following WorkBench operations will cause regeneration of this 
file : 

The panel's name is changed (not title) 

For panel : 
viewspec 

The following WorkBench operations will also cause regeneration: 

An item is deleted 

A new item is added to this panel 



An item's name is changed (not title) 
An item's data type is changed 
An 
An 
An 



item's generates events flag is changed 

item's valids changed (if item is type string and connected) 
item's connection information changed 
For the panel items: 

cancel, viewbody 
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Initialize_Panel -- Subprogram 


BODY 


procedure Initial ize_Panel 
( Collection_Read 

: in TAE . Tae_Co . Col lect ion_Ptr ) is 




begin -- Init ial i ze_Panel 




Info := new TAE . Tae_Wpt . Even t_Con text ; 

Inf o . Collect ion := Collect ion_Read; 

TAE . Tae_Co . Co_Find ( Inf o . Collect ion , " viewspec_v" , Info.View); 

TAE.Tae_Co.Co_Find ( Inf o . Collect ion, “ viewspec_t " , Info. Target) ; 


except ion 




when TAE . UNINITIALIZED^ PTR => 

Text_IO . Put_Line ( " Panel_viewspec . Init ial ize_Panel : 
& "Collect ion_Read not initialized."); 
raise; 


ii 


when TAE . Tae_Co . NO_SUCH_MEMBER => 

Text_ 10 . Put_Line ( " Panel_viewspec . Init ial ize_Panel : 
& "(View or Target) not in Collection."); 
raise; 




end Ini tialize_Panel ; 




Create_Panel -- Subprogram 


BODY 



procedure Create_Panel 
( Panel_State 

: in TAE . Tae_Wpt . Wpt_Flags 

:= TAE . Tae_Wpt . WPT_PREFERRED ; 

Relat ive_Window 

: i n X_W i ndows . W i ndow 

: = X_Wi ndows . Null_Window ) is 



begin -- Create_Panel 

if Info . Panel_Id = Tae . Null_Panel_Id then 
TAE.Tae_Wpt . Wpt_NewPanel 
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( Dummy 
Data_Vm 
V i ew_Vm 

Relat ive__Window 
User_Context 
Flags 
Panel_Id 



=> 



=> Info. Target, 

=> Info. View, 

=> Relat ive_Window, 
=> Info, 

=> Panel_State, 

=> Inf o . Panel_Id ); 



else 



Text_IO . Put_Line ("Panel (viewspec) is already displayed."); 
end if; 

exception 

when TAE . UNINITIALIZED_PTR => 

Text_IO . Put_Line ( " Panel_viewspec . Create_Panel : 

& "Panel was not initialized prior to creation."); 
raise; 

when TAE . TAE_FAIL => 

Text_IO . Put_Line ( " Panel_viewspec . Create_Panel : " 

Sc "Panel could not be created."); 
raise ; 

end Create_Panel; 



procedure Connect__Panel 
( Panel_State 

: in TAE . Tae_Wpt .Wpt_F lags 

:= TAE . Tae_Wpt . WPT_PREFERRED ; 

Relat ive_Window 1 

: in X_Windows .Window 

:= X_Windows .Null_Window ) is 

Dummy : Boolean ; 

L : Integer:=l; 

label: Str ing ( 1 . . 80 ) : = ( others=> ' '); 

begin -- Connect__Panel 

if Inf o . Panels Id = Tae . Nul l_Panel_Id then 
Create_Panel 



Connect_Panel 



Subprogram BODY 



( Relat ive_Window 
Panel_State 



= > Relat ive__Window, 
=> Panel_State ) ; 



else 



273 



TAE . Tae_Wpt . Wpt_Set Panels tat e ( Inf o . Panel_Id, Panel_State) ; 
end i f ; 



--ADDED 

strlen ( component , L) ; 

label ( 1 . . (L+5 ) ) : =component ( 1 . . L) & " . spec " ; 

TAE . Tae_Vm. Vm_SetString (Info .View, " spec label " , 1 , label ( 1 . . (L+5 ) ) , TAE . Tae_ 
Vm . P_UPDATE) ; 

TAE . Tae_Wpt . Wpt_ViewUpdate ( Info . Panel_Id, " speclabel " , Inf o .View, " speclabe 
1“) ; 

Dummy : =TAE . Tae_Wpt . Wpt_P ending ; 
except ion 

when TAE . Tae_Wpt . BAD_STATE => 

Text_IO . Put_Line ( " Panel_viewspec . Connect_Panel : " 

& "Invalid panel state."); 
raise; 

end Connect_Panel ; 



Destroy_Panel 



Subprogram BODY 



procedure Destroy_Panel is 
begin -- Des troy_Panel 

TAE . Tae_Wpt . Wpt_PanelErase ( Info . Panel_Id) ; 
exception 

when TAE . Tae_Wpt . BAD_ PANEL. ID => 

Text_IO . Put_Line ( " Panel_viewspec . Des troy_Panel : 

Sc " Info . Panel_Id is an invalid id."); 
raise ; 

when TAE . Tae_Wpt . ERAS E_NULL_ PANEL => 

-- This panel has not been created yet, or has already been destroyed. 
-- Trap this exception and do nothing, 
null ; 

end Destroy_Panel ; 

--+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 
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-- begin EVENT HANDLERS 



cancel_Event -- Subprogram SPEC & BODY 



procedure cancel_Event 

( Info : in TAE . Tae_Wpt . Event_Context_Ptr ) is 
--I PURPOSE: 

--I EVENT HANDLER. Insert application specific information. 

Value : array (1..1) of String ( 1 .. TAE . Tae_Taeconf . STRINGS I ZE) ; 
Count : TAE.Taeint; 

begin -- cancel_Event 

-- Begin default generated code 

TAE . Tae_Vm. Vm_Extract_Count ( Inf o . Parm_Ptr , Count); 
if Count > 0 then 

TAE . Tae_Vm . Vm_Extract_SVAL ( Inf o . Parm_Ptr , 1, Value(l)); 

end if; 

-- End default generated code 

-- Begin generated code for Connection 

Connect.Panel (TAE .Tae_Wpt .WPT_ INVISIBLE) ; 

Panel_viewpsdl . Connect_Panel (TAE . Tae_Wpt . WPT_VISIBLE) ; 

-- End generated code for Connection 

end cancel_Event; 



viewbody_Event 



-- Subprogram SPEC Sc BODY 



procedure viewbody_Event 

( Info : in TAE . Tae_Wpt . Event_Context_Ptr ) is 

-- I PURPOSE: 

--I EVENT HANDLER. Insert application specific information. 

Value : array (1..1) of String ( 1 . . TAE . Tae_Taeconf . STRINGSIZE) ; 
Count : TAE.Taeint; 
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begin -- viewbody_Event 

-- Begin default generated code 

TAE . Tae_Vm. Vm_Extract_Count ( Inf o . Parm_Ptr # Count) ; 
if Count > 0 then 

TAE . Tae_Vm.Vm_Ex tract _SVAL ( Inf o . Parm_Ptr , 1, Value (1) ) ; 
end if; 

-- End default generated code 
-- Begin generated code for Connection 

Pane l_vi ewbody . Connec t_Pane 1 ( TAE . Tae_Wpt . WPT_VIS IBLE ) ; 

-- End generated code for Connection 
end viewbody_Event ; 



-- end EVENT HANDLERS 



Dispatcher tern 



-- Subprogram BODY 



procedure Dispat ch_Item 

( User_Context_Ptr : in TAE . Tae_Wpt . Event _Cont ex t_Ptr ) is 

begin -- Dispatch_Item » 

if TAE.Tae_Misc .s_equal ("cancel", User_Context_Ptr . Parm_Narne) then 
cancel_Event (User_Context_Pt r ) ; 

elsif TAE.Tae_Misc . s_equal ( "viewbody" , User_Context_Ptr . Parm_Name) 

then 

viewbody^Event (User_Context_Ptr) ; 
end if; 

end Dispatch_Item; 
end Panel_viewspec ; 
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O. PANEL VIEWBODY PACKAGE 



1. PAN_VIEWBODY_S.A 

__ **★ TAE Plus Code Generator version V5 . 1 
--***File : pan_viewbody_s . a 

-- *** Generated : Jul 13 16:13:09 1992 
-- *** Revised by : Dogan Ozdemir 

+ 

* Pane l_v i ewbody -- Package SPEC 

★ 



with TAE; 
with X_Windows; 

package Panel_viewbody is 



PURPOSE : 

This package encapsulates the TAE Plus panel: viewbody 

These subprograms enable panel initialization, creation, destruction, 
and event dispatching. For more advanced manipulation of the panel 
using the TAE package, the panel's Event_Context (Info) is provided. 
It includes the Target and View (available after initialization) 
and the Panel_Id (available after creation) . 



REGENERATED : 

The following Workbench operations will cause regeneration of this 
f ile : 

The panel's name is changed (not title) 

For panel: 
viewbody 



Info : TAE . Tae_Wpt . Event_Cont ext_Ptr ; -- panel information 



Initial ize_Panel 



-- Subprogram SPEC 



procedure Initialize_Panel 

( Collect ion_Read -- TAE Collection read from 

: in TAE . Tae_Co . Collect ion_Ptr ); -- resource file 

--I PURPOSE: 

--I This procedure initializes the Info. Target and Info. View for this 
-- I panel 
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--I EXCEPTIONS: 

--I TAE . UNINITIALIZED_PTR is raised if Col lect ion_Read not initialized 
-- I TAE . Tae_Co . NO_SUCH_MEMBER is raised if the panel is not in 
--| Col lect ion_Read 



Create_Panel 



-- Subprogram SPEC 



procedure Create_Panel 
( Panel_State 

: in TAE .Tae_Wpt .Wpt_F lags 

: = TAE . Tae_Wpt . WPT_PREFERRED ; 

Relat ive_Window 

: in X_Windows .Window 

:= X_Windows . Null_Window ); 



-- Flags sent to Wpt_NewPanel . 



-- Panel origin is offset from 
-- this X Window. Null_Window 
-- uses the root window. 




PURPOSE: 

This procedure creates this panel object in the specified Panel_State 
and stores the panel Id in Inf o . Panel_Id . 



EXCEPTIONS : 

TAE . UNINITIALIZED_PTR is raised if the panel is not initialized 
TAE.TAE_FAIL is raised if the panel could not be created 



Connect_Panel 



Subprogram SPEC 



procedure Connect_Panel 
( Panel_State 

: in TAE . Tae_Wpt . Wpt _,Flags 

:= TAE.Tae_Wpt.WPT_PREFERRED; 

Relat ive_Window 

: in X_Windows .Window 

:= X_Windows .Null_Window ); 



-- Panel origin is offset from 
-- this X Window. Null_Window 
-- uses the root window. 



--I PURPOSE: 

-- I If this panel doesn't exist, this procedure creates this panel object 
--I in the specif iec Panel_State and stores the panel Id in 
--I Inf o . Panel_Id . 

--I If this panel does exist, it is set to the specified Panel_State. 
--I In this case, Relative_Window is ignored. 

--I EXCEPTIONS: 
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TAE .UNINITIALIZED_PTR is raised from Create__Panel if the panel is 
not initialized 

TAE.TAE_FAIL is raised from Create_Panel if the panel could not be 
created 

TAE . Tae_Wpt . BAD_STATE is raised if the panel exists and the 
Panel State is an invalid state 



Destroy_Panel 



-- Subprogram SPEC 



procedure Destroy_?anel ; 



--I PURPOSE: 

-- I This procedure erases a panel from the screen and de-allocates the 
-- I associated panel object (not the target and view) . 



— I EXCEPTIONS: 

--I TAE.Tae_Wpt . BAD_PANEL_ID is raised if Inf o . Panel_Id is an invalid 
id. 



NOTES : 



- - | Info . Panel_Id is set to TAE . NULL_PANEL_ID, and should not referenced 
--I in any Wpt call until it is created again. 



Dispatch_Item 



-- Subprogram SPEC 



procedure Dispatch_Item 

( User_Context_Ptr -- Wpt Event Context for a PAEM 

: in TAE . Tae_Wpt . Event_Context_Ptr ); -- event. 

--I PURPOSE: 

--I This procedure calls the Event Handler specified by User_Context_Ptr 

--I 

-- I EXCEPTIONS: 

--I Application-specif ic 

end Panel_viewbody ; 
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2. PAN VIEWBODY B.A 



-- *** TAE Plus Code Generator version V5 . 1 
★★♦pile : pan_viewbody_b . a 

-- *** Generated : Jul 13 16:13:09 1992 
-- *** Revised by : Dogan Ozdemir 



* Panel_viewbody -- Package BODY 

★ 

with TAE; use TAE; 
with Text_IO ; 
with Global; 
use Text_IO, Global; 



-- One "with" statement for each connected panel, 
with Panel_viewspec ; 

package body Panel_viewbody is 



NOTES : 

For each parameter that you have defined to be "event-generating" in 
this panel, there is an event handler procedure below. Each handler 
has a name that is a concatenation of the parameter name and "_Event". 
Add application-dependent logic to each event handler. (As generated 
by the WorkBench, each event handler simply logs the occurrence of 
the event . ) 

You may want to flag any changes you make to this file so that if 
you regenerate this file, you can more easily cut and paste your 
modifications back in. 

REGENERATED : 

The following WorkBench operations will cause regeneration of this 
f ile : 

The panel's name is changed (not title) 

For panel: 
viewbody 

The following WorkBench operations will also cause regeneration: 

An item is deleted 

A new item is added to this panel 

An item's name is changed (not title) 

An item's data type is changed 

An item's generates events flag is changed 

An item's valids changed (if item is type string and connected) 
An item's connection information changed 
For the panel items: 
cancel 
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Initialize_Panel -- Subprogram 


BODY 


procedure Init ialize_Panel 
( Collection_Read 

: in TAE . Tae_Co . Collect ion_Ptr ) is 




--I NOTES: (none) 




begin -- Initialize_Panel 




Info := new TAE.Tae_Wpt.Event_Context; 

Inf o . Collect ion := Collect ion_Read; 

TAE . Tae_Co . Co_Find ( Inf o . Collect ion, "viewbody_v" , Info. View) ; 
TAE . Tae_Co . Co_Find ( Inf o . Collect ion, " viewbody_t " , Inf o . Target ) ; 


exception 




when TAE.UNINITIALIZED_PTR => 

Text_IO . Put_Line ( " Panel_viewbody . Init ialize_Panel : 
& "Collect ion_Read not initialized."); 
raise; 


ii 


when TAE . Tae_Co . NO_SUCH_MEMBER => 

Text_IO . Put_ Line ( " Panel_viewbody . Init ialize_Panel : 
Sc "(View or Target) not in Collection."); 
raise ; 


" 


end Initialize_Panel ; 




Create_Panel -- Subprogram 


BODY 



procedure Create_Panel 
( Panel_State 

: in TAE . Tae_Wpt . Wpt_Flags 

:= TAE . Tae_Wpt . WPT_PREFERRED ; 

Relat ive_Window 

: in X_Windows .Window 

:= X_Windows . Null_Window ) is 



begin -- Create_Panel 
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if Inf o . Panel_Id = Tae . Nul l_Panel_Id then 



TAE . Tae_Wpt . Wpt_NewPane 1 
( Dummy 
Data_Vm 
V i ew_Vm 

Relat ive_Window 
User^Context 
Flags 
Panel Id 



= > " " , 

= > Info. Target, 

=> Info. View, 

=> Relat ive_Window, 
=> Info, 

-> Panel_State, 

=> Info . Panel_Id ); 



else 

Text_IO . Put_Line ("Panel (viewbody) is already displayed, 
end i f ; 



) ; 



except ion 

when TAE . UNINITIAL»IZED__PTR => 

Text_IO . Put_Line ( " Panel_viewbody . Create_Panel : 

& "Panel was not initialized prior to creation."); 
raise; 



when TAE . TAE_FAIL => 

Text_IO . Put_Line ( " Panel_viewbody . Create_Panel : 
Sc "Panel could not be created."); 
raise; 



end Create_Panel ; 



Connect_Panel 



-- Subprogram BODY 



procedure Connect_Panel 
( Panel_State 

; in TAE . Tae_Wpt . Wpt_Flags 

: = TAE . Tae_Wpt . WPT_PREFERRED ; 

Relat ive_Window 

: in X_Windows .Window 

:= X_Windows .Null_Window ) is 

Dummy : Boolean ; 

L : Integer :=1; 

label: Str ing ( 1 . . 80 ) : = (others=> ' '); 

begin -- Connect_Panel 

if Inf o . Panel_Id = Tae . Null_Panel_Id then 
Create_Panel 

( Relat ive_Window => Relat ive_Window, 
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Panel_State 



=> Panel_State ) ; 



else 

TAE . Tae_Wpt . Wpt_SetPanelState ( Inf o . Pane l_Id, Panel_State) ; 
end if; 

--ADDED 

strlen ( component , L) ; 

label ( 1 . . (L+5) ) : =component ( 1 . . L) & " . body 11 ; 

TAE . Tae_Vm. Vm_SetString ( Info .View, "body label " , 1, label ( 1 . . (L+5 ) ) , TAE .Tae_ 
Vm . P_UPDATE) ; 

TAE . Tae_Wpt . Wpt_ViewUpdate ( Info . Panel_Id, "body label " , Inf o .View, "bodylabe 
1") ; 

Dummy : =TAE . Tae_Wpt . Wpt_Pending ; 
except ion 

when TAE . Tae_Wpt . BAD_STATE => 

Text_IO . Put_Line ( " Panel_viewbody . Connect_Panel : " 

Sc "Invalid panel state.") ; 
raise; 

end Connect_Panel ; 



Destroy_Panel 



-- Subprogram BODY 



procedure Destroy_Panel is 



begin -- Destroy_Panel 

TAE .Tae_Wpt . Wpt_PanelErase ( Info . Panel_Id) ; 
exception 

when TAE . Tae_Wpt . BAD_PANEL_ID => 

Text_IO . Put_Line ( " Panel_viewbody . Destroy_Panel : " 

& " Inf o . Panel_Id is an invalid id."); 
raise ; 

when TAE . Tae_Wpt . ERASE_NULL_PANEL => 

-- This panel has not been created yet, or has already been destroyed. 
-- Trap this exception and do nothing, 
null ; 

end Des troy_Panel ; 
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-- begin EVENT HANDLERS 



cancel^ Event 



Subprogram SPEC & BODY 



procedure cancel_Event 

( Info : in TAE . Tae_Wpt . Event_Context_Ptr ) is 
--I PURPOSE: 

-- I EVENT HANDLER. Insert application specific information. 

Value : array (1..1) of String ( 1 .. TAE . Tae_Taeconf . STRINGS I ZE) ; 
Count : TAE.Taeint; 

begin -- cancel_Event 

-- Begin default generated code 

TAE.Tae_Vm.Vm_Extract_Count ( Inf o . Parm_Ptr , Count) ; 
if Count > 0 then 

TAE . Tae_Vm . Vm_Extract_SVAL ( Inf o . Parm_Ptr , 1, Value(l)); 

end if; 

-- End default generated code 
-- Begin generated code for Connection 
Connect_Panel (TAE . Tae_Wpt .WPT_ INVISIBLE) ; 

Panels viewspec . Connect_Panel (TAE.Tae_Wpt .WPT — VISIBLE) ; 

-- End generated code for Connection 
end cancel_Event; 

-- end EVENT HANDLERS 



D i spa tch_I tern 



-- Subprogram BODY 



procedure Dispatch_Item 

( User_Context_Ptr : in TAE . Tae_Wpt . Event_Context_Ptr ) is 



begin -- Dispatch_Item 

if TAE .Tae_Misc . s_equal ("cancel", User_Context_Ptr . Parm_Name) then 
cancel_Event (User_Context_Ptr ) ; 
end if; 

end Dispatch_Item; 
end Pane l_vi ewbody ; 
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p. 



PANEL SELECT PACKAGE 



1. PANSELECTS.A 

-- *** TAE Plus Code Generator version V5 . 1 
__ *** File : pan_select_s . a 

-- *** Generated : Aug 12 11:50:32 1992 
__ *★* Revised by : Dogan Ozdemir 

** + ************■*■*★*★★*****★*★★★*★★*★★★**★***★★*★****★★★*★★★■*-*•«-★★★★* 

★ 

* Panel_select -- Package SPEC 

* 

****************★*************★★***★********★*★★■*■★*★****★*■*■******■** 



with TAE; 
with X_Windows ; 

package Panel_select is 



PURPOSE: 

This package encapsulates the TAE Plus panel: select 

These subprograms enable panel initialization, creation, destruction, 
and event dispatching. For more advanced manipulation of the panel 
using the TAE package, the panel's Event_Context (Info) is provided. 
It includes the Target and View (available after initialization) 
and the Panel_Id (available after creation) . 

REGENERATED : 

The following Workbench operations will cause regeneration of this 
file: 

The panel's name is changed (not title) 

For panel: 
select 



Info : TAE.Tae_Wpt . Event_Context_Pt r ; -- panel information 



In it ial ize_Panel 



-- Subprogram SPEC 



procedure Init ialize_Panel 

( Collect ion__Read -- TAE Collection read from 

: in TAE.Tae_Co.Collection_Ptr ) ; -- resource file 

--I PURPOSE: 

--I This procedure initializes the Info. Target and Info. View for this 
-- I panel 
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EXCEPTIONS: 

TAE . UNINITIALIZED_PTR is 
TAE . Tae_Co . NO_SUCH_MEMBER 
Collection Read 



raised if Col lect ion_Read 
is raised if the panel is 



not 

not 



initialized 

in 



Create_Panel 



-- Subprogram SPEC 



procedure Create_Panel 
( Panel_State 

: in TAE . Tae_Wpt .Wpt_F lags 

:= TAE . Tae_Wpt . WPT_PREFERRED ; 

Relat ive_Window 

: in X_Windows .Window 

:= X_Windows .Null_Window ); 



-- Flags sent to Wpt_NewPanel . 



-- Panel origin is offset from 
— this X Window. Null_Window 
-- uses the root window. 




PURPOSE: 

This procedure creates this panel object in the specified Panel_State 
and stores the panel Id in Inf o . Panel_Id . 



EXCEPTIONS: 

TAE .UNINITIALIZED_PTR is raised if the panel is not initialized 
TAE.TAE_FAIL is raised if the panel could not be created 



Connect_Panel 



-- Subprogram SPEC 



procedure Connect_Panel 

( Panel_State > 

: in TAE . Tae_Wpt . Wpt_Flags 

:= TAE.Tae_Wpt . WPT_PREFERRED ; 

Relat ive_Window 

: in X_Windows .Window 

:= X_Windows . Nul l_Window ); 



-- Panel origin is offset from 
-- this X Window. Null_Window 
-- uses the root window. 




PURPOSE: 

If this panel doesn't exist, this procedure creates this panel object 
in the specifiec Panel_State and stores the panel Id in 
Info . Panel_Id . 

If this panel does exist, it is set to the specified Panel_State. 
In this case, Relat ive_Window is ignored. 
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EXCEPTIONS : 

TAE . UNINITIALIZED_PTR is raised from Create_Panel if the panel is 
not initialized 

TAE . TAE_FAIL is raised from Create_Panel if the panel could not be 
created 

TAE . Tae_Wpt . BAD_S TATE is raised if the panel exists and the 
Panel_State is an invalid state 



Destroy_Panel 



-- Subprogram SPEC 



procedure Des troy_Panel ; 



--! PURPOSE: 

--I This procedure erases a panel from the screen and de-allocates the 
--I associated panel object (not the target and view). 



id. 



EXCEPTIONS : 

TAE . Tae_Wpt . BAD_PANEL_ID is raised if Inf o . Panel_Id is an invalid 



--I 



NOTES : 

Inf o . Panel_Id is set to TAE . NULL_PANEL_ID , and should not referenced 
in any Wpt call until it is created again. 



Di spat ch_I tern 



Subprogram SPEC 



procedure Dispatch_Item 

( User_Context_Ptr -- Wpt Event Context for a PARM 

: in TAE . Tae_Wpt . Event_Context_Ptr ); -- event. 

-- 1 PURPOSE: 

-- I This procedure calls the Event Handler specified by User_Context_Ptr 
— I 

--I EXCEPTIONS: 

--I Application-specific 

end Panel_select ; 
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2. PAN SELECT B.A 



__ *** TAE Plus Code Generator version V5 . 1 
-- *** File: pan_select_b . a 

-- *** Generated: Aug 12 11:50:32 1992 



* Panel_select -- Package BODY 

* 

with TAE; use TAE; 
with Text_IO; 
with Global; 
use Global , Text_IO ; 



-- One "with" statement for each connected panel. 

with Panel_cdelwarn; 

with Panel_savecomp; 

with Panel_compsel ; 

with Panel_integrt ; 

package body Panel_select is 



NOTES : 

For each parameter that you have defined to be " event -generat ing " in 
this panel, there is an event handler procedure below. Each handler 
has a name that is a concatenat ion of the parameter name and "_Event". 
Add application-dependent logic to each event handler. (As generated 
by the WorkBench, each event handler simply logs the occurrence of 
the event . ) 



You may want to flag any changes you make to this file so that if 
you regenerate this file, you can more easily cut and paste your 
modifications back in. 



--I REGENERATED: 

-- I The following WorkBench operations will cause regeneration of this 
--I file: 



The panel’s name is changed 
For panel : 
select 



(not title) 



The 



For 



following WorkBench operations will also cause regeneration: 

An item is deleted 

A new item is added to this panel 

An item's name is changed (not title) 

An item’s data type is changed 

An item's generates events flag is changed 

An item's valids changed (if item is type string and connected) 
An item's connection information changed 
the panel items: 
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- 1 
-I 



delete , 
cancel, 



save, 

help 



print , 



integrate , 



In it ial ize_Panel 



-- Subprogram BODY 



procedure Init ialize_Panel 
( Collection_Read 

: in TAE . Tae_Co . Col lect ion_Ptr ) is 

begin -- Init ialize_Panel 

Info := new TAE . Tae_Wpt . Event_Context ; 

Info. Collection : = Collecticn_Read; 

TAE . Tae_Co . Co_Find ( Inf o . Collection, "select_v" , Info. View); 
TAE . Tae_Co . Co_?ind ( Inf o . Col lect ion , "select_t". Info. Target) ; 

exception 

when TAE.UNINITIALIZED_PTR => 

Text_IO . Put_Line ( " Panel_select . Init ial ize_Panel : “ 

Sc "Col lect ion_Read not initialized."); 
raise; 

when TAE . Tae_Co . NO_SUCH_MEMBER => 

Text_IO . Put_Line ( " Panel_select . Init ialize_Panel : 

Sc "(View or Target) not in Collection."); 
raise ; 

end Initialize^ Panel ; 



Create_Panel 



Subprogram BODY 



procedure Create_Panel 
( Panel_State 

: in TAE . Tae_Wpt . Wpt_Flags 

: = TAE . Tae_Wpt . WPT_PREFERRED ; 

Re lat ive_ Window 

: in X_ Windows .Window 

:= X_Windows .Null_Window ) is 



begin -- Create_Panel 
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if Info . Panel_Id = Tae.Nul 
TAE . Tae_Wpt . Wpt_NewPanel 
( Duinmy 



Tae .Null_Panel_Id then 



=> " " , 

=> Info. Target, 

=> Info. View, 

=> Relat ive_Window, 
=> Info, 

=> Panel_State, 

=> Inf o . Panel_Id ); 



Data_Vm 

View__Vm 

Relat ive__Window 
User_Context 
Flags 
Panel_Id 



else 



Text_IO . Put_Line ("Panel (select) is already displayed."); 
end if; 

except ion 

when TAE.UNINITIALIZED_PTR => 

Text_IO . Put_Line ( " Panel_select . Create_Panel : " 

Sc "Panel was not initialized prior to creation. " ) ; 
raise; 

when TAE . TAE_FAIL => 

Text_IO . Put_Line ( " Pane l_select . Create__Panel : 

Sc "Panel could not be created."); 
raise; 

end Create_Panel ; 



procedure Connect_Panel 
( Panel_State 

: in TAE . Tae_Wpt .Wpt__F lags 

:= TAE.Tae_Wpt.WPT_PREFERRED; 

Relat ive_Window 

: in X_Windows .Window 

:= X__Windows . Nul l__Window ) is 

Duinmy: Boolean; 

L : Integer :=1; 

label : Str ing ( 1 . . 80 ) : = ( others => ’ ' ) ; 

begin -- Connect_Panel 

if Inf o . Panel_Id = Tae . Null__Panel_Id then 



Connect_Panel 



Subprogram BODY 
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Create_Panel 

( Relat ive_Window 
Panel_State 



=> Relat ive_Window, 
=> Panel_State ) ; 



else 



TAE . Tae_Wpt . Wpt_Set Pane lState ( Inf o . Pane l_Id, Panel_State) ; 
end if ; 

— ADDED 

strlen ( component , L) ; 

labe 1(1. . L ) : =component ( 1 . . L ) ; 

TAE.Tae_Vm.Vm_SetString( Info. View, " label" , 1, label ( 1 . . L) , TAE . Tae_Vm . P_UPD 
ATE) ; 

TAE . Tae__Wpt . Wpt_ViewUpdate ( Info. Panel_Id, " label " , Info .View, " label " ) ; 
Dummy : =TAE . Tae_Wpt . Wpt_Pend ing ; 

exception 

when TAE . Tae_Wpt . BAD_STATE => 

Text_IO . Put_Line ( " Panel_select . Connect^Panel : " 

& "Invalid panel state."); 
raise; 

end Connect_Panel ; 



procedure Destroy_Pane 1 is 



begin -- Destroy_Panel 

TAE . Tae_Wpt . Wpt_PanelErase ( Info . Panel_Id) ; 
exception 

when TAE . Tae_Wpt . BAD_PANEL_ID -> 

Text_IO . Put_Line ( " Panel_select . Destroy_Panel : " 

Sc " Info . Panel_Id is an invalid id."); 
raise; 

when TAE . Tae_Wpt . ERAS E_NULL_ PANEL => 

-- This panel has not been created yet, or has already been destroyed. 
-- Trap this exception and do nothing, 
null; 



Destroy_Panel 



Subprogram BODY 
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end Destroy^ Pane 1 ; 



— +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 
-- begin EVENT HANDLERS 



delete_Event 



-- Subprogram SPEC Sc BODY 



procedure delete_Event 

( Info : in TAE . Tae_Wpt . Event_Context_Ptr ) is 
--I PURPOSE: 

--I EVENT HANDLER. Insert application specific information. 

Value : array (1..1) of String ( 1 .. TAE . Tae_Taeconf . STRINGS IZE) ; 
Count : TAE.Taeint; 

begin -- delete_Event 

-- Begin default generated code 

TAE . Tae_Vm . Vm_Extrac t_Count ( Inf o . Parm_Ptr , Count) ; 
if Count > 0 then 

TAE . Tae_Vm . Vm_Ext rac t_SVAL ( Inf o . Parm_Ptr , 1 , Value (1) ) ; 

end if; 

-- End default generated code 

-- Begin generated code for Connection 

Connect_Panel (TAE .Tae_Wpt . WPT_INVISIBLE) ; 

Panel_cdelwarn . Connect_Pane 1 (TAE .Tae_Wpt . WPT_VISIBLE) ; 

-- End generated code for Connection 

end delete_Event ; 



save_Event 



-- Subprogram SPEC Sc BODY 



procedure save_Event 

( Info : in TAE . Tae_Wpt . Event_Context_Ptr ) is 
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--I PURPOSE: 

--I EVENT HANDLER. Insert application specific information. 



Value : array (1..1) of String ( 1 . . TAE . Tae_Taeconf . STRINGSIZE) 
Count : TAE.Taeint; 

L,I,C : Integer:=l; 

D : Integer :=0; 

ls_file :file_type; 
f ile_name : String ( 1 . . 7 ) : = " ls_f ile" ; 

current :String (1..80):= (others = >‘ ‘ ); 

number : integer: =1; 

Dummy : Boolean; 

begin -- save_Event 

-- Begin default generated code 

TAE . Tae_Vm . Vm_Ext ract_Count ( Inf o . Parm_Ptr , Count) ; 
if Count > 0 then 

TAE.Tae_Vm.Vm_Extract_SVAL ( Inf o . Parm_Ptr , 1, Value (1)) ; 
end i f ; 

-- End default generated code 
-- Begin generated code for Connection 



--ADDED 

strlen (path, D) ; 

Directory { 1 . . D) : =path ( 1 . . D) ; 
loop 

if Directory (I) = '/' then 

current_directory ( cur_dir_index) (1. .C+l) : =current ( 1 . .C 

1 )&"/ 

cur_dir_index: =cur_dir_index+l ; 

C : = 1 ; 

else 

current (C) : =Directory ( I ) ; 

C:=C+1; 
end if; 

I : =1+1 ; 

if I =D+ 1 then exit; 
end if; 
end loop; 

current_di rectory ( cur_dir_index) ( 1 . . C+l ) : =current ( 1 . . C-l ) & " / 
if D>27 then 

directory __array := Directory ( (D-26) . . D) ; 
else 

directory _array := Directory ( 1 .. 27 ) ; 
end if; 

system_call ( " Is -F " ^Directory ( 1 . . D) & " > , '& l, ls_file , '); 

1 is t_di rectory { ls_f ile, filename, f ile_vec, number) ; 
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strlen (component , L) ; 



TAE . Tae_ Vm. Vm_ Setstring ( Panel_savecomp . Info .View, " compname " , 1 , component ( 
1 . . L) , TAE . Tae_Vm . P^UPDATE ) ; 

TAE . Tae_Wpt . Wpt_ViewUpdat e ( Panel_savecomp . Info . Panel_Id, " compname " , Panel 
_savecomp.Info.View, "compname") ; 

TAE . Tae_Wpt . Wpt_SetStr ingCons traint s ( Panel_savecomp . Info . Panel_Id, "direc 
tory " , taeint (number) , f ile__vec) ; 

TAE. Tae_Vm. Vm_SetSt ring ( Panel_savecomp . Info. View, " directory labe 1 " , 1, dire 
c tory _ar ray , TAE . Tae_Vm . P_UPDATE ) ; 

TAE . Tae_ Wpt . Wpt_ViewUpdate ( Panel_savecomp . Info . Panel_Id, " directory label " 
, Pane l_savecomp . Info .View, "directory label " ) ; 

Dummy : =TAE . Tae_Wpt . Wpt_ Pending ; 
system^ call ( "rm ls_ f ile" ) ; 
system_call ( " rm directory_f i le " ) ; 

Connect_Panel (TAE . Tae — Wpt .WPT — INVISIBLE) ; 

Panels save comp . Connect_Panel (TAE . Tae_Wpt . WPT_VISIBLE) ; 

-- End generated code for Connection 

end save_Event; 



pr int_Event 



Subprogram SPEC & BODY 



procedure print_Event 

( Info : in TAE .Tae_ Wpt . Event_Context_Ptr ) is 
--I PURPOSE: 

--I EVENT HANDLER. Insert application specific information. 

Value : array (1..1) of String ( 1 . .TAE .Tae_Taeconf . STRINGSIZE) ; 
Count : TAE. Taeint ; 

--ADDED 

J, P : Integer : =1 ; 



begin -- prints Event 

-- Begin default generated code 

TAE .Tae_Vm.Vm_Ex tracts Count ( Info . Parm_Ptr , Count) ; 
if Count > 0 then 
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TAE.Tae_Vm.Vm_Extract_SVAL ( Inf o . Parm_Ptr , 1, Value(l)); 
end if; 

-- End default generated code 
str len ( component ,P); 
strlen ( library , J) ; 

system_call ( com& " cv "^library ( 1 . . J) &" " ^component ( 1 . . P) &" outpsdl 
outspec outbody"); 

if TAE . Tae_Misc . s_equal ( Value ( 1 )," PSDL " ) then 
system_call ( " lpr outpsdl"); 

TAE . Tae_Wpt . Wpt_PanelMessage ( info .panel_id / "SPOOLED TO DEFAULT 
PRINTER" ) ; 

elsif TAE . Tae_Misc . s_equal ( Value (1), "Spec") then 
system_cal 1 ( " lpr outspec"); 

TAE. Tae_Wpt . Wpt_PanelMessage ( info. panel^id, "SPOOLED TO DEFAULT 
PRINTER" ) ; 

elsif TAE . Tae_Misc . s_equal (Value(l), "Body") then 
system_call ( " lpr outbody" ) ; 

TAE .Tae_Wpt . Wpt_PanelMessage ( info .panel_id, "SPOOLED TO DEFAULT 
PRINTER" ) ; 

end if; 

system_call ( " rm outpsdl"); 
system^ call ( "rm outspec") ; 
system_call ( "rm outbody" ) ; 

end print_Event; 



integrate_Event 



-- Subprogram SPEC Sc BODY 



procedure integrate_Event 

( Info : in TAE .Tae_Wpt . Event_Context_Ptr ) is 

i 

--I PURPOSE: 

--I EVENT HANDLER. Insert application specific information. 

Value : array (1..1) of String ( 1 . . TAE . Tae_Taeconf . STRINGSIZE) ; 
Count : TAE.Taeint; 

L,S,Q : Integer:=l; 

teststring: String ( 1 .. 7 ): = (others=>‘ '); 
gen file : File_type; 

begin -- integrate_Event 

-- Begin default generated code 

TAE.Tae_Vm.Vm_Extract_Count ( Inf o . Parm_Pt r , Count) ; 
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if Count > 0 then 

TAE.Tae_Vm.Vm_Extract_SVAL ( Inf o . Parm_Ptr , 1, Value (1)) ; 

end if; 

--ADDED 

strlen (component , L) ; 

str len ( 1 ibrary , S) ; 

strlen (Query _psdl , Q) ; 

system_call (com&"cv " &1 ibrary ( 1 . . S ) & " " Secomponent ( 1 . . L) Sc " 
retr ieved_psdl retr ieved_spec retr ieved_body " ) ; 

if Query then 

system_cal 1 (parse & "main retr ieved_psdl " ScQuery_psdl ( 1 . . Q ) ) ; 
else 

system_call ( par s eSc " parse retr ieved_psdl " ) ; 
end if; 

open (genf ile , mode=>in_f ile, name =>" genf ile " ) ; 

get (genf ile , teststring) ; 

close (genf i le ) ; 

if teststr ing ( 1 .. 7 ) = "generic" then 

system_call ( " cp sof tbase_txt . gen message") ; 
else 

sys tem_cal 1 ( " cp sof tbase_txt . nongen message" ) ; 
end if; 

for erase in 1..7 loop 

teststr ing (erase) : = ' '; 

end loop; 

system_call ( " rm genfile"); 

-- End default generated code 

-- Begin generated code for Connection 

Connect_Panel (TAE . Tae_Wpt .WPT_ INVISIBLE ) ; 

Panel_integrt . Connect__Panel (TAE.Tae_Wpt . WPT_PREFERRED) ; 

-- End generated code for Connection 
end integrate_Event ; 



cancel^Event 



Subprogram SPEC Sc BODY 



procedure cancel_Event 

( Info : in TAE . Tae_Wpt . Event_Context_Ptr ) is 
--I PURPOSE: 
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--I EVENT HANDLER. Insert application specific information. 

Value : array (1..1) of String ( 1 . . TAE. Tae_Taeconf . STRINGSIZE) ; 
Count : TAE.Taeint; 

begin -- cancel_Event 

-- Begin default generated code 

TAE . Tae_Vm . Vm_Extract_Count ( Inf o . Parm_Ptr , Count) ; 
if Count > 0 then 

TAE . Tae_Vm . Vm_Extract_SVAL ( Inf o . Parm_Ptr , 1, Value(l)) ; 

end if; 

-- End default generated code 
-- Begin generated code for Connection 

Connect.Panel (TAE . Tae_Wpt . WPT_INVISIBLE) ; 

Panel_compsel . Connect_Panel (TAE. Tae_Wpt . WPT_VISIBLE) ; 

-- End generated code for Connection 
end cancel_Event ; 

-- end EVENT HANDLERS 



Di spa tch__I tern 



-- Subprogram BODY 



procedure Dispatch_Item 

( User_Context_Ptr : in TAE . Tae_Wpt . Event_Context_Ptr ) is 



begin -- Dispatch_Item 

if TAE .Tae_Misc . s_equal ( "delete" , User_Context_Ptr . ParmJJame) then 
delete_Event (User_Context_Ptr ) ; 

elsif TAE.Tae_Misc.s_equal ("save", User_Context_Ptr . Parm_Name ) then 
save_Event (User_Context_Ptr ) ; 

elsif TAE . Tae_Misc . s_equal ("print", User_Context_Ptr . Parm_Name ) then 
print_Event (User_Context_Pt r ) ; 

elsif TAE . Tae_Misc . s_equal ("integrate", User_Context_Pt r . Parm_Name) 
then 

integrate_Event (User_Context_Ptr ) ; 
elsif TAE .Tae_Misc . s_equal ("cancel", User_Context_Ptr . Parm_Name ) then 
cancel_Event (User_Context_Ptr ) ; 
end if; 

end Dispatch_Item; 
end Panel_select ; 
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Q. PANEL_SAVECOMP PACKAGE 



1 . PAN_SA VECOMP_S.A 

-- TAE Plus Code Generator version V5 . 1 

__ *★* File : pan_savecomp_s . a 

-- *** Generated : Aug 12 11:50:32 1992 
-- *** Revised by : Dogan Ozdemir 

★ 

* Panel_savecomp -- Package SPEC 

_ ★ 

_ _ . ★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★ 



with TAE; 
with X_W i ndows ; 

package Panel_savecomp is 



PURPOSE: 

This package encapsulates the TAE Plus panel: savecomp 

These subprograms enable panel initialization, creation, destruction, 
and event dispatching. For more advanced manipulation of the panel 
using the TAE package, the panel's Event_Context (Info) is provided. 
It includes the Target and View (available after initialization) 
and the Panel_Id (available after creation) . 

REGENERATED : 

The following Workbench operations will cause regeneration of this 
file: 

The panel's name is changed (not title) 

For panel: 
savecomp 



Info : TAE . Tae_Wpt . Event_Context_Pt r ; 



-- panel information 



In it ialize_Panel 



-- Subprogram SPEC 



procedure Initial ize_Panel 

( Collect ion_Read -- TAE Collection read from 

: in TAE. Tae_Co. Collect ion_Ptr ); -- resource file 

--1 PURPOSE: 

--I This procedure initializes the Info. Target and Info. View for this 
-- I panel 
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--I EXCEPTIONS: 

-- I TAE .UNINITIALIZED_PTR is raised if Col lect ion_Read not initialized 
--I TAE . Tae_Co . NO_SUCH_MEMBER is raised if the panel is not in 
-- I Col lect ion_Read 



Create_Panel 



-- Subprogram SPEC 



procedure Create_Panel 
( Panel_State 

: in TAE. Tae_Wp t .Wpt_F lags 

: = TAE . Tae_Wpt . WPT_PREFERRED ; 

Relat ive_Window 

: in X_Windows .Window 

: = X_Windows . Null_Window ); 



-- Flags sent to Wpt_NewPanel . 



-- Panel origin is offset from 
-- this X Window. NullJWindow 
-- uses the root window. 



I PURPOSE: 

This procedure creates this panel object in the specified Panel_State 
and stores the panel Id in Inf o . Panel_Id . 

EXCEPTIONS : 

TAE . UNINITIALIZED_PTR is raised if the panel is not initialized 
TAE.TAE_FAIL is raised if the panel could not be created 



Connect_Panel 



-- Subprogram SPEC 



procedure Connect_Panel 
( Panel_State 

: in TAE .Tae_Wpt .Wpt_Flags 

: = TAE . Tae_Wp t . WPT_PREFERRED ; 

Relat ive_Window 

: in X_Windows .Window 

: = X_Windows .Null_Window ); 



-- Panel origin is offset from 
-- this X Window. Null_Window 
-- uses the root window. 



--I PURPOSE: 

--I If this panel doesn't exist, this procedure creates this panel object 
--I in the specif iec Panel_State and stores the panel Id in 
--| Inf o . Panel_Id . 

--! If this panel does exist, it is set to the specified Panel_State. 
--I In this case, Relat ive_Window is ignored. 

-- I EXCEPTIONS: 
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TAE . UNINITIALIZED_PTR is raised from Create_Panel if the panel is 
not initialized 

TAE . TAE_FAIL is raised from Create_Panel if the panel could not be 
created 

TAE . Tae_Wpt . BAD_STATE is raised if the panel exists and the 
Panel_State is an invalid state 



Destroy_Panel 



Subprogram SPEC 



procedure Destroy_Panel ; 



--I PURPOSE: 

-- I This procedure erases a panel from the screen and de-allocates the 
--I associated panel object (not the target and view). 



--! EXCEPTIONS: 

--I TAE . Tae_Wpt . BAD_PANEL_ID is raised if Info . Panel_Id is an invalid 
id. 



NOTES : 



-- I Inf o . Panel_Id is set to TAE . NULL_PANEL_ID , and should not referenced 
--I in any Wpt call until it is created again. 



Di spat ch_I tern 



-- Subprogram SPEC 



procedure Dispatch_Item 

( User_Context_Ptr -- Wpt Event Context for a PARM 

: in TAE.Tae_Wpt . Event_Context_Ptr ); -- event. 

--I PURPOSE: 

-- I This procedure calls the Event Handler specified by User_Context_Ptr 
--I 

--! EXCEPTIONS: 

-- I Application-specific 

end Panel_savecomp; 
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2. PAN SAVECOMP B.A 



__ *** TAE Plus Code Generator version V5 . 1 
-- *** File: pan_savecomp_b. a 

-- *** Generated: Aug 12 11:50:32 1992 



* Panel_savecomp -- Package BODY 

★ 

with TAE; use TAE; 
with Text_IO; 
with Global; 
use Global , Text_IO ; 

-- One “with" statement for each connected panel, 
with Panel_select ; 

package body Panel_savecomp is 



NOTES : 

For each parameter that you have defined to be "event-generating" in 
this panel, there is an event handler procedure below. Each handler 
has a name that is a concatenation of the parameter name and "_Event" . 
Add application-dependent logic to each event handler. (As generated 
by the WorkBench, each event handler simply logs the occurrence of 
the event . ) 

You may want to flag any changes you make to this file so that if 
you regenerate this file, you can more easily cut and paste your 
modifications back in. 

REGENERATED : 

The following WorkBench operations will cause regeneration of this 
file: 

The panel's name is changed (not title) 

For panel: 
savecomp 



The following WorkBench operations will also cause regeneration: 

An item is deleted 

A new item is added to this panel 

An item's name is changed (not title) 

An item's data type is changed 

An item's generates events flag is changed 

An item's valids changed (if item is type string and connected) 
An item's connection information changed 
For the panel items: 

directorylabel , cancel, ok, compname, 

directory 



301 



--ADDED 

selected :String (1..80):= (others=> ' '); 

ls_file :file_type; 

f ile_name : String ( 1 . . 7 ) : = " ls_f ile" ; 

number : integer :=1; 



In it ialize_Panel 



-- Subprogram BODY 



procedure Init ial i ze_Panel 
( Collection_Read 

: in TAE .Tae_Co . Col lect ion_Ptr ) is 

begin -- Init ialize_Panel 

Info := new TAE . Tae_Wpt . Event_Context ; 

Info. Collection := Collect ion_Read; 

TAE . Tae_Co . Co_Find { Info .Collection, "savecomp_v" , Info. View); 
TAE.Tae_Co.Co_Find ( Inf o . Collect ion , " savecomp_t " , Info. Target) ; 

exception 

when TAE . UNINITIALIZED_PTR => 

Text_IO . Put_Line ( " Panel_savecomp . Initialize_Panel : 

Sc "Collect ion_Read not initialized."); 
raise; 

when TAE . Tae_Co . NO_SUCH_MEMBER => 

Text_I0 . Put_Line ( " Panel_savecomp . Init ialize_Panel : " 

Sc "(View or Target) not in Collection."); 
raise; 

end Init ial ize_Panel ; 



Create_Panel 



-- Subprogram BODY 



procedure Create_Panel 
( Panel_State 

: in TAE . Tae_Wpt . Wpt_Flags 

:= TAE . Tae_Wpt . WPT_PREFERRED ; 

Relat ive_Window 
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: in X_Windows .Window 

:= X_Windows . Nul l_Window ) is 



begin -- Create_Panel 



if Inf o . Panel_Id = Tae.Nul 
TAE .Tae_Wpt . Wpt_NewPanel 
( Dummy 



Tae .Null_Panel_Id then 



=> 



Data_Vm 

View_Vm 

Re lat ive_Window 
User_Context 
Flags 
Panel_Id 



=> Info. Target, 

=> Info. View, 

=> Re lat ive_Window, 
=> Info, 

=> Panel_State, 

=> Inf o . Panel_Id ); 



else 



Text_IO . Put_Line ("Panel (savecomp) is already displayed."); 
end i f ; 

except ion 

when TAE . UNINITIALIZED_PTR => 

Text_IO . Put_Line ( " Panel_savecomp . Create_Panel : 

Sc "Panel was not initialized prior to creation."); 
raise; 

when TAE . TAE_FAIL => 

Text_IO . Put_Line ( " Panel_savecomp . Create_Panel : " 

Sc "Panel could not be created."); 
raise ; 

end Create_Panel; 



procedure Connect_Panel 
( Panel_State 

: in TAE . Tae_Wpt . Wpt_Flags 

: = TAE . Tae_Wpt . WPT_PREFERRED ; 

Relat ive_Window 

: in X_Windows .Window 

:= X_Windows . Null_Window ) is 



begin -- Connect_Panel 



Connect_Panel 



Subprogram BODY 
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if Info . Panel_Id = Tae . Nul l_Panel_Id then 
Create_Panel 

( Relat ive_Window = > Relat ive_Window, 

Panel_State => Panel_State ) ; 

else 

TAE . Tae_Wpt . Wpt_Set PanelState ( Info . Pane l_Id, Panel_State) ; 
end if; 

exception 

when TAE . Tae_Wpt . BAD_STATE => 

Text_IO . Put_Line ( " Pane l^savecomp . Connec t_Pane 1 : " 

Sc "Invalid panel state.") ; 
raise; 

end Connec t_Panel ; 



Destroy_Panel 



-- Subprogram BODY 



procedure Destroy_Panel is 
--I NOTES: (none) 

begin -- Destroy_Panel 

TAE . Tae_Wpt . Wpt_PanelErase ( Info . Panel_Id) ; 
exception 

when TAE . Tae_Wpt . BAD_PANEL_ID => 

Text_IO . Put_Line ( " Panels savecomp . Destroy_Panel : " 

Sc " Info . Panel_Id is an invalid id."); 
raise; 

when TAE . Tae_Wpt . ERAS E_NULL_ PANEL => 

-- This panel has not been created yet, or has already been destroyed. 
-- Trap this exception and do nothing, 
null ; 

end Destroy_Panel ; 



H+++++++++++++++++++++++++++H 



h +++++++ +++ 



-- begin EVENT HANDLERS 
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cancel_Event 



-- Subprogram SPEC & BODY 



procedure cancel_Event 

( Info : in TAE . Tae_Wpt . Event_Context_Ptr ) is 
— I PURPOSE: 

--I EVENT HANDLER. Insert application specific information. 

Value : array (1..1) of String ( 1 .. TAE . Tae.Taeconf . STRINGS IZE) ; 
Count : TAE.Taeint; 

begin -- cancel_Event 

-- Begin default generated code 

TAE . Tae_Vm . Vm_Extract_Count ( Inf o . Parm_Ptr , Count); 
if Count > 0 then 

TAE . Tae_Vm. Vm_Extract_SVAL ( Inf o . Parm_Ptr , 1, Value(l)); 

end if; 

-- End default generated code 

-- Begin generated code for Connection 

Connect.Panel (TAE . Tae_Wpt .WPT_ INVISIBLE) ; 

Panel_select . Connect.Panel (TAE . Tae_Wpt . WPT_VISIBLE) ; 

-- End generated code for Connection 
--ADDED 

TAE . Tae_Wpt . Wpt_PanelReset ( Info . Panel_Id) ; 
for J in 1 . . 80 loop 
Directory (J) := ' ' ; 

end loop ; > 

for K in 1 . . cur_dir_index loop 
for L in 1 . . 80 loop 

current_directory (K) (L) : = ' ' ; 

end loop; 
end loop ; 

for A in 1..27 loop 

directory _array (A) :=' ' ; 

end loop; 
cur_dir_index: =1 ; 

end cancel_Event ; 
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ok_Event 



-- Subprogram SPEC & BODY 



procedure ok_Event 

( Info : in TAE . Tae_Wpt . Event_Context_Ptr ) is 
-- I PURPOSE: 

-- I EVENT HANDLER. Insert application specific information. 

-- ! 

--I NOTES: (none) 

Value : array (1..1) of String ( 1 . .TAE . Tae_Taeconf . STRINGS I ZE) ; 
Count : TAE.Taeint; 

--ADDED 

N, K, J, P : Integer : =1 ; 
begin -- ok_Event 

-- Begin default generated code 

TAE . Tae_Vm . Vm_Extract_Count ( Inf o . Parm_Ptr , Count ) ; 
if Count > 0 then 

TAE . Tae_Vm . Vm_Ext rac t_SVAL ( Inf o . Parm_Ptr , 1, Value (1) ) ; 

end if; 

--ADDED 

strlen ( selected, N) ; 
strlen (Directory , K) ; 
strlen ( library , J) ; 
strlen (component , P ) ; 

system_call (com& " cv "& library ( 1 .. J) & " " ^component ( 1 . . P ) & " outpsdl 

out spec out body" ) ; 

system_call ( " cp outpsdl " ^Directory ( 1 . . K) & " / 

" ^component ( 1 . . P ) & " . psdl " ) ; 1 

system_call ( "cp outspec "^Directory ( 1 . .K) &" / 

" ^component ( 1 . . P ) & " . spec . a " ) ; 

system_call ( "cp outbody " ^Directory ( 1 . . K) & " / 

" ^component ( 1 . . P) &" .body . a" ) ; 

system_call ( " rm outpsdl"); 
system^call ( " rm outspec"); 
system_call ( "rm outbody" ) ; 



-- End default generated code 
-- Begin generated code for Connection 
Connect.Panel (TAE . Tae_Wpt . WPT_INVISIBLE) ; 
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Panel_select . Connect_Panel ( TAE . Tae_Wpt . WPT_VISIBLE) ; 

-- End generated code for Connection 
--ADDED 

TAE . Tae_Wpt . Wpt_PanelReset ( Info . Panel__Id) ; 
for X in 1 . . 80 loop 
Directory (X) := ' 1 ; 

end loop; 

for Y in 1 . . cur_dir_index loop 
for Z in 1 . . 80 loop 

cur rent_di rectory ( Y) ( Z) : = 1 ' ; 

end loop; 
end loop; 

for AA in 1..27 loop 

directory_array(AA) := 1 ' ; 

end loop; 
cur_dir_index : = 1 ; 

end ok_Event ; 



directory_Event 



-- Subprogram SPEC & BODY 



procedure directory_Event 

( Info : in TAE . Tae_Wpt . Event_Context_Ptr ) is 

--I PURPOSE: 

--( EVENT HANDLER. Insert application specific information. 

-- I 

--I NOTES: (none) 

Value : array (1..1) of String ( 1 . .TAE .Tae_Taeconf . STRINGSIZE) ; 
Count : TAE.Taeint; 

--ADDED 

N, M, K, S : integer : =1 ; 

Dummy:Boolean; 

selected_vec : s_vector ( 1 . . 1 ) : = (others=> new STRING ( 1 .. 80 )) ; 
begin — directory_Event 

-- Begin default generated code 

TAE .Tae_Vm. Vm_Extract_Count ( Inf o . Parm_Ptr , Count) ; 
if Count > 0 then 

TAE .Tae_Vm. Vm_Extract_SVAL ( Info . Parm_Ptr , 1 # Value ( 1 ) ) ; 

end if; 

--ADDED 
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selected : =Value ( 1 ) ( 1 . . 80 ) ; 
parse_line ( selected) ; 
strlen ( selected, N) ; 
strlen ( Directory, M) ; 
if Is_a_directory then 
K : =N+M; 

Directory ( 1 . .K) : =Di rectory ( 1 . . M ) & " / "^selected ( 1 . . (N-l ) ) ; 
if K>27 then 

directory _array := Directory ( (K-26 ).. K) ; 

else 

directory_array : = Directory ( 1 . . 27 ) ; 
end if; 

TAE . Tae_Vm . Vm_SetString ( Info .View, " directory label " , 1 , directory_array f TAE 
. Tae_Vm . P_UPDATE) ; 

TAE . Tae_Wpt . Wpt_ViewUpdate ( Inf o . Panel_Id, " directory label " , Inf o .View, "dir 
ectory label " ) ; 

system_call ( " Is -F " ^Directory ( 1 . .K)&" > ls_f ile " ) ; 
list_di rectory ( ls_f ile, f ile_name, f ile_vec, number) ; 

TAE . Tae_Wpt . Wpt_Set St ringCons train ts (Info. Panel_Id, “directory" , taeint (nu 
mber) , f ile_vec) ; 

Dummy : =TAE . Tae_Wpt . Wpt_Pending ; 
cur_dir_index : =cur_dir_index+l; 

Current_di rectory ( cur_dir_index) ( 1 . . N) : =selected ( 1 . .N) ; 
for node in (N+l)..80 loop 

Current^, directory ( cur_dir_index) (node) : = ' ' ; 

end loop ; 

system_call ( “ rm ls_file“); 

Is_a_directory : = FALSE ; 

elsif Upper_directory then 

strlen (Current_directory ( cur_dir_index) , S) ; 
for drct in (M-S+l)..3,0 loop 
Directory (drct ):= ' 
end loop; 

if (M-S) >27 then 

directory_array : = Directory ( ( (M-S) -2 6 ) . . (M-S) ) ; 

else 

directory _array := Directory ( 1 .. 27 ) ; 
end if; 

TAE .Tae_Vm. Vm_SetString ( Info .View, "directorylabel " , 1, directory _array , TAE 
. Tae_Vm . P_UPDATE ) ; 

TAE . Tae_Wpt . Wpt_ViewUpdate ( Inf o . Panel_Id, "directorylabel " , Inf o .View, "dir 
ectorylabel " ) ; 
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cur_dir_index : =cur_dir_index-l ; 

system_call ( " Is -F " ^Directory ( 1 . . (M-S ) ) Sc " > ls_file" ); 
list_di rectory ( ls_f ile, f ile_name, f ile_vec, number) ; 

TAE . Tae_Wpt . Wpt_SetSt ringCons train ts ( Info . Panel_Id, "directory" , taeint (nu 
mber) , f ile_vec) ; 

Dummy : =TAE . Tae_Wpt . Wpt_Pending ; 
system_call ( "rm ls_f ile" ) ; 

Upper_directory : = FALSE ; 

else --A file name is selected 

TAE . Tae_Wpt . Wpt_PanelMessage ( info . panel_id, " SELECTION IS NOT A 
DIRECTORY" ) ; 
end if; 



-- End default generated code 
end directory _Event; 



-- end EVENT HANDLERS 



Dispatch_Item 



-- Subprogram BODY 



procedure Di spat ch_I tern 

( User_Context_Ptr : in TAE . Tae_Wpt . Event_Context_Ptr ) is 



begin -- Dispatch_Item 

if TAE . Tae_Misc . s_equal ("cancel", User_Context_Ptr . Parm_Name ) then 
cancel_Event (User_Context_Ptr ) ; 

elsif TAE . Tae_Misc . s_equal ("ok", User_Context_Ptr . Parm_Name ) then 
ok_Event (User_Context_Ptr ) ; 

elsif TAE . Tae_Misc . s_equal ("directory", User_Context_Ptr . Parm_Name) 
then 

directory_Event (User_Context_Ptr ) ; 
end if; 

end Dispatch_Item; 
end Panel_savecomp; 
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R. PANEL CDELWARN PACKAGE 



1. PANCDELWARNS.A 

__ *** TAE Plus Code Generator version V5 . 1 
__ ★** File : pan_cdelwarn_s . a 

__ *** Generated : Aug 12 11:50:32 1992 
__ *** Revised by : Dogan Ozdemir 

★ 

* Panel_cdelwarn -- Package SPEC 

* 



with TAE; 
with X_Windows; 

package Panel_cdelwarn is 



PURPOSE: 

This package encapsulates the TAE Plus panel: cdelwarn 

These subprograms enable panel initialization, creation, destruction, 
and event dispatching. For more advanced manipulation of the panel 
using the TAE package, the panel's Event_Context (Info) is provided. 
It includes the Target and View (available after initialization) 
and the Panel_Id (available after creation) . 



REGENERATED : 

The following Workbench operations will cause regeneration of this 
file : 

The panel's name is changed (not title) 

For panel: 
cdelwarn 



Info : TAE . Tae_Wpt . Event_Context_Ptr ; -- panel information 



In it ialize_Panel 



Subprogram SPEC 



procedure Initialize_Panel 

( Collect ion_Read -- TAE Collection read from 

: in TAE.Tae_Co.Collection_Ptr ); -- resource file 

--I PURPOSE: 

--I This procedure initializes the Info. Target and Info. View for this 
-- I panel 
— I 
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— I EXCEPTIONS: 

--I TAE . UNINITIAL I ZED_PTR is raised if Col lect ion_Read not initialized 
--I TAE . Tae_Co . NO_SUCH_MEMBER is raised if the panel is not in 
--I Collect ion__Read 



Create_Panel 



Subprogram SPEC 



procedure Create_Panel 
( Panel_State 

: in TAE . Tae_Wpt .Wpt_F lags 

: = TAE . Tae_Wpt . WPT_PREFERRED ; 

Relat ive_Window 

: in X_Windows .Window 

: = X_Windows . Nul l_Window ); 



-- Flags sent to Wpt_NewPane 1 . 



-- Panel origin is offset from 
-- this X Window. Null_Window 
-- uses the root window. 




PURPOSE: 

This procedure creates this panel object in the specified Panel_State 
and stores the panel Id in Inf o . Panel_Id . 



EXCEPTIONS: 

TAE . UNINITIALIZED__PTR is raised if the panel is not initialized 
TAE.TAE_FAIL is raised if the panel could not be created 



Connect_Panel 



-- Subprogram SPEC 



procedure Connect_Panel 
( Panel_State 

: in TAE . Tae__Wpt . Wpt__F lags 

:= TAE . Tae__Wpt . WPT_PREFERRED ; 

Relat ive_Window 

: in X_Windows .Window 

: = X_Windows .Null_Window ); 



-- Panel origin is offset from 
-- this X Window. Null_Window 
-- uses the root window. 



— I PURPOSE: 

--} If this panel doesn't exist, this procedure creates this panel object 
--I in the specif iec Panel_State and stores the panel Id in 
-- I Info . Panel_Id . 

--I If this panel does exist, it is set to the specified Panel_State. 
--I In this case, Relat ive_Window is ignored. 

— I EXCEPTIONS: 
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TAE . UNINITIALIZED_PTR is raised from Create_Panel if the panel is 



-- I not initialized 

--I TAE . TAE_FAIL is raised from Create_Panel if the panel could not be 
- - | created 

--I TAE . Tae_Wpt . BAD_STATE is raised if the panel exists and the 
-- I Panel_State is an invalid state 



Destroy_Panel 



Subprogram SPEC 



procedure Destroy_Panel ; 



--I PURPOSE: 

--I This procedure erases a panel from the screen and de-allocates the 
--I associated panel object (not the target and view). 



-- | EXCEPTIONS: 

--I TAE . Tae_Wpt . BAD_PANEL_ID is raised if Inf o . Panel_Id is an invalid 



NOTES : 



--I Info . Panel_Id is set to TAE . NULL_PANEL_ID, and should not referenced 
in any Wpt call until it is created again. 



Di spa tch_I tern 



-- Subprogram SPEC 



procedure Dispatch__Item 

( User_Context__Ptr -- Wpt Event Context for a PARM 

: in TAE . Tae_Wpt . Even t_Context_Ptr ); -- event. 

-- I PURPOSE: 

-- I This procedure calls the Event Handler specified by User_Context_Ptr 
--I 

--I EXCEPTIONS: 

--I Applicat ion-specif ic 

end Panel_cdelwarn ; 
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2. PANCDELWARNB.A 

__ *** TAE plus Code Generator version V5 . 1 
__ *** pile : pan_cdelwarn_b . a 

-- *** Generated : Aug 12 11:50:32 1992 
__ Revised by : Dogan Ozdemir 

* 

* Panel^cdelwarn -- Package BODY 

★ 

with TAE; use TAE; 
with Text_IO; 
with Global; 
use Global , Text_IO ; 

-- One "with" statement for each connected panel, 
with Pane l_ma inmenu; 
with Panel_select ; 

package body Panel_cdelwarn is 



NOTES : 

For each parameter that you have defined to be "event-generating" in 
this panel, there is an event handler procedure below. Each handler 
has a name that is a concatenation of the parameter name and "_Event". 
Add application-dependent logic to each event handler. (As generated 
by the WorkBench, each event handler simply logs the occurrence of 
the event . ) 

You may want to flag any changes you make to this file so that if 
you regenerate this file, you can more easily cut and paste your 
modifications back in. 

REGENERATED : 

The following WorkBench operations will cause regeneration of this 
f ile : 

The panel's name is changed (not title) 

For panel: 
cdelwarn 



The following WorkBench operations will also cause regeneration: 

An item is deleted 

A new item is added to this panel 

An item's name is changed (not title) 

An item's data type is changed 

An item's generates events flag is changed 

An item's valids changed (if item is type string and connected) 
An item's connection information changed 
For the panel items: 

ok, cancel 
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Init ialize_Panel 



-- Subprogram BODY 



procedure Init ialize_Panel 
( Collect ion_Read 

: in TAE .Tae_Co .Collect ion_Ptr ) is 



begin -- Init ialize_Panel 

Info : = new TAE . Tae_Wpt . Event_Context ; 

Info .Collection : = Col lect ion_Read ; 

TAE . Tae_Co . Co_Find ( Inf o . Collection, "cdelwarn_v" , Info. View); 
TAE . Tae_Co . Co_Find ( Inf o . Collection, " cdelwarn_t " , Inf o . Target ) ; 

exception 

when TAE . UNINITIALIZED_PTR => 

Text_IO . Put_Line ( " Panel_cdelwarn . Ini t ial i ze_Panel : " 

& "Collection_Read not initialized."); 
raise; 

when TAE . Tae_Co . NO_SUCH_MEMBER => 

Text_IO . Put_Line ( " Panel_cdelwarn . Init ialize_Panel : 

& "(View or Target) not in Collection."); 
raise ; 

end Init ialize_Panel ; 



Create_Panel 



Subprogram BODY 



procedure Create_Panel 
( Panel_State 

: in TAE . Tae_Wpt .Wpt_F lags 

:= TAE . Tae_Wpt . WPT_PREFERRED ; 

Relat ive_Window 

: in X_Windows .Window 

:= X_Windows . Null_Window ) is 
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begin 



Create Panel 



if 



Info . Panel_Id = Tae . Null_Panel_Id then 
TAE . Tae_Wpt . Wpt_NewPane 1 

=> * " , 



( Dummy 
Data_Vm 
V i ew_Vm 

Relat ive_Window 
User_Context 
Flags 
Panel_Id 



=> Info. Target, 

=> Info. View, 

=> Relat ive_Window, 
=> Info, 

=> Panel_State, 

=> Inf o . Pane l_Id ); 



else 

Text_IO . Put_Line ("Panel (cdelwarn) is already 
end i f ; 



displayed 



) ; 



exception 

when TAE . UNINITIALIZED_PTR => 

Text_IO . Put_Line ( " Panel_cdelwarn . Create_Panel : " 

& "Panel was not initialized prior to creation."); 
raise; 



when TAE.TAE_FAIL => 

Text_IO . Put_Line ( " Panel_cdelwarn . Create_Panel : 
Sc "Panel could not be created."); 
raise; 



end Create_Panel; 



Connect_Panel 



-- Subprogram BODY 



procedure Connect_Panel 

( Panel_State , 

: in TAE . Tae__Wpt . Wpt_Flags 

: = TAE . Tae_Wpt . WPT_PREFERRED ; 

Re lat ive_Window 

: in X_Windows .Window 

: = X_Windows .Null_Window ) is 



begin -- Connect_Panel 

if Inf o . Panel_Id = Tae .Null_Panel_Id then 
Create_Panel 

( Relative_Window => Relat ive_Window, 

Panel_State => Panel_State ) ; 
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else 

TAE . Tae_Wpt . Wpt_Set PanelState ( Inf o . Panel_Id , Panel_State) ; 
end if; 

exception 

when TAE . Tae_Wpt . BAD_STATE => 

Text_IO . Put_Line ( " Panel_cdelwarn . Connect_Panel : " 

Sc "Invalid panel state."); 
raise ; 

end Connect_Panel ; 



Destroy_Panel 



-- Subprogram BODY 



procedure Destroy_Panel is 



begin -- Destroy_Panel 

TAE . Tae_Wpt . Wpt_PanelErase ( Info . Panel_Id) ; 
exception 

when TAE . Tae_Wpt . BAD_ PANEL. ID => 

Text_IO . Put_Line ( " Panel.cdelwarn . Destroy.Panel : " 

Sc " Info . Panels Id is an invalid id . " ) ; 
raise ; 

when TAE . Tae_Wpt . ERAS E_NULL_ PANEL => 

-- This panel has not been created yet, or has already been destroyed. 
-- Trap this exception and do nothing, 
null; i 

end Destroy_Panel ; 

--+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 
-- begin EVENT HANDLERS 



ok_Event 



-- Subprogram SPEC Sc BODY 



procedure ok_Event 
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( Info : in TAE . Tae_Wpt . Event_Context_Ptr ) is 
-- | PURPOSE: 

--I EVENT HANDLER. Insert application specific information. 

Value : array (1..1) of String ( 1 .. TAE . Tae_Taeconf . STRINGS IZE) ; 
Count : TAE . Taeint ; 

L,S : Integer :=1; 

begin -- ok_Event 

-- Begin default generated code 

TAE .Tae_Vm. Vm_Extract_Count ( Inf o . Parm_Ptr , Count); 
if Count > 0 then 

TAE.Tae_Vm. Vm_Extract_SVAL ( Inf o . Parm_Ptr , 1, Value (1) ) ; 
else 
null ; 
end if; 

--ADDED 

strlen ( component , L) ; 
strlen ( library , S ) ; 

system_call (com&"cd "^library (1 . .S)Sc M " &c omponent (1 . .L) ) ; 

TAE . Tae_Wpt . Wpt_PanelReset ( Pane l_ma inmenu . Info . Panel_Id) ; 
for Clean in 1 . . (num_of_comp ) loop 
for ch in 1..80 loop 

f ile_vec (Clean) .all (ch) : = ' ' ; 

end loop; 
end loop; 



-- End default generated code 

-- Begin generated code for Connection 

Connect_Panel (TAE . Tae_Wpt . WPT_INVISIBLE ) ; 
Panel_mainmenu . Connect_Panel (TAE .Tae_Wpt . WPT_VISIBLE) ; 

-- End generated code for Connection 

end ok_Event ; 



cancel_Event 



-- Subprogram SPEC Sc BODY 



procedure cancel_Event 

( Info : in TAE .Tae_Wpt . Event_Context_Ptr ) is 
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-- | PURPOSE: 

--I EVENT HANDLER. Insert application specific information. 

Value : array (1..1) of String ( 1 .. TAE . Tae_Taeconf . STRINGS I ZE) ; 
Count : TAE.Taeint; 

begin -- cancel_Event 

-- Begin default generated code 

TAE . Tae_Vm . Vm_Extract_Count ( Inf o . Parm_Ptr , Count) ; 
if Count > 0 then 

TAE . Tae_Vm . Vm_Extract_SVAL ( Info . Parm_Ptr , 1, Value (1)) ; 

else 
null; 
end if; 

-- End default generated code 
-- Begin generated code for Connection 
Connect_Panel ( TAE . Tae_Wpt . WPT_INVISIBLE) ; 

Panel_select . Connect_Panel (TAE . Tae_Wpt . WPT_VISIBLE) ; 

-- End generated code for Connection 

end cancel_Event ; 

-- end EVENT HANDLERS 



Dispatch_Item 



Subprogram BODY 



procedure Dispatch_Item 

( User_Context_Ptr : in TAE . Tae_Wpt . Event_Context_Ptr ) is 
--I NOTES: (none) 

begin -- Dispatch_Item 

if TAE . Tae_Misc . s_equal ("ok", User_Context_Ptr . Parm_Name ) then 
ok_Event (User_Context_Ptr ) ; 

els if TAE . Tae_Misc . s_equal ("cancel", User_Context_Ptr . Parm_Name ) then 
cancel_Event (User_Context_Ptr ) ; 
end i f ; 

end Dispatch_Item; 
end Panel_cdelwarn ; 
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s. 



PANEL INTEGRATE PACKAGE 



1. PANJNTEGRTS.A 

-- *** TAE Plus Code Generator version V5 . 1 
__ *** File : pan_integrt_s . a 

-- *** Generated : Sep 13 13:51:07 1992 
-- *** Revised by : Dogan Ozdemir 

★ 

* Panel_integrt -- Package SPEC 

* 

★ ★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★■a'** 



with TAE; 
with X_Windows; 

package Panel_integrt is 



PURPOSE: 

This package encapsulates the TAE Plus panel: integrt 

These subprograms enable panel initialization, creation, destruction, 
and event dispatching. For more advanced manipulation of the panel 
using the TAE package, the panel's Event_Context (Info) is provided. 
It includes the Target and View (available after initialization) 
and the Panel_Id (available after creation) . 



REGENERATED : 

The following Workbench operations will cause regeneration of this 
f ile : 

The panel's name is changed (not title) 

For panel: 
integrt 



Info : TAE.Tae_Wpt . Event_Context_Ptr ; -- panel information 



Initialize_Panel 



Subprogram SPEC 



procedure Init iali ze_Panel 

( Collection_Read -- TAE Collection read from 

: in TAE .Tae_Co . Collect ion_Ptr ); -- resource file 

--I PURPOSE: 

--I This procedure initializes the Info. Target and Info. View for this 
--I panel 
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EXCEPTIONS : 

TAE . UNINITIALIZED_PTR is 
TAE . Tae_Co . NO_SUCH_MEMBER 
Collection Read 



raised if Collect ion_Read not 
is raised if the panel is not 



initialized 

in 



Create_Panel 



-- Subprogram SPEC 



procedure Create_Panel 
( Panel_State 

: in TAE . Tae_Wpt . Wpt_Flags 

: = TAE . Tae_Wpt . WPT_PREFERRED ; 

Relat ive_Window 

: in X_Windows .Window 

:= X_Windows . Null_Window ); 



-- Flags sent to Wpt_NewPanel . 



-- Panel origin is offset from 
-- this X Window. Null_Window 
-- uses the root window. 




PURPOSE: 

This procedure creates this panel object in the specified Panel_State 
and stores the panel Id in Inf o . Panel_Id . 



EXCEPTIONS : 

TAE . UNINITIALIZED_PTR is raised if the panel is not initialized 
TAE.TAE_FAIL is raised if the panel could not be created 



Connect_Panel 



-- Subprogram SPEC 



procedure Connect_Panel 
( Panel_State 

: in TAE . Tae_Wpt . Wpt_Flags 

:= TAE . Tae__Wp t . WPT_PREFERRED ; 

Relat ive_Window 

: in X — Windows .Window 

:= X_Windows .Null_Window ); 



-- Panel origin is offset from 
-- this X Window. Null_Window 
-- uses the root window. 



PURPOSE: 

If this panel doesn't exist, this procedure creates this panel object 
in the specifiec Panel_State and stores the panel Id in 
Info. Panel_Id. 

If this panel does exist, it is set to the specified Panel_State. 
In this case, Relat ive_Window is ignored. 
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EXCEPTIONS : 

TAE . UNINITIALIZED_PTR is raised from Create^ Panel if the panel is 
not initialized 

TAE.TAE_FAIL is raised from Create_Panel if the panel could not be 
created 

TAE . Tae_Wpt . BAD_STATE is raised if the panel exists and the 
Panel State is an invalid state 



Destroy_Panel 



-- Subprogram SPEC 



procedure Destroy_Panel ; 



--I PURPOSE: 

-- I This procedure erases a panel from the screen and de-allocates the 
-- I associated panel object (not the target and view). 



--I EXCEPTIONS: 

-- I TAE . Tae_Wpt . BAD_PANEL_ID is raised if Inf o . Panel_Id is an invalid 
id. 



NOTES : 



— I Info . Panel_Id is set to TAE . NULL_PANEL_ID , and should not referenced 
--I in any Wpt call until it is created again. 



Dispatch_Item 



-- Subprogram SPEC 



procedure Dispatch_I tem 

( User_Context_Ptr -- Wpt Event Context for a PARM 

: in TAE . Tae_Wpt . Event_Context_Ptr ); -- event. 

--I PURPOSE: 

--I This procedure calls the Event Handler specified by User_ Context_Ptr 
--I 

--I EXCEPTIONS: 

--I Application-specific 

end Panel_integrt ; 
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2. PAN INTEGRT B.A 



-- *** TAE Plus Code Generator version V5 . 1 
__ *** File : pan_int egrt_b . a 

__ *** Generated : Oct 22 16:29:54 1992 
-- *** Revised by : Dogan Ozdemir 

__ *******★*★★***★★*★★★★*★********★★★★************************.***■*■.*.*** 



* Pane l_integrt -- Package BODY 

★ 

***★**★****★*******★★*★★****★■*■*★★★★**★*★★★*★★*★*★*★*★★*****★■*'★**■*■.*.■*• 

with TAE; use TAE; 
with Text_IO; 
with Global; 
use Text_IO , Global ; 

-- One "with” statement for each connected panel, 
with Panel_select ; 
with Pane l_ma inmenu ; 

package body Panel_integrt is 



NOTES : 

For each parameter that you have defined to be " event-generating" in 
this panel, there is an event handler procedure below. Each handler 
has a name that is a concatenation of the parameter name and “^Event" . 
Add application-dependent logic to each event handler. (As generated 
by the WorkBench, each event handler simply logs the occurrence of 
the event.) 

You may want to flag any changes you make to this file so that if 
you regenerate this file, you can more easily cut and paste your 
modifications back in. 

REGENERATED : 

The following WorkBench operations will cause regeneration of this 
f ile : 

The panel's name is changed (not title) 

For panel: 
integrt 



The following WorkBench operations will also cause regeneration: 
An item is deleted 
A new item is added to this panel 



item's name is changed (not title) 
item's data type is changed 



An 
An 

An item's generates events flag is changed 
An 
An 



item's valids changed (if item is type string and connected) 
item's connection information changed 



For the panel items: 



cancel , 



integrate, 



int_quit 
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Initial ize_Panel 



-- Subprogram BODY 



procedure Init ialize_Panel 
( Collect ion_Read 

: in TAE . Tae_Co . Collect ion_Ptr ) is 



begin -- Init ialize_Panel 

Info := new TAE . Tae_Wpt . Event_Context ; 

Inf o . Collect ion := Collect ion_Read; 

TAE . Tae_Co . Co_Find ( Info .Collect ion, "integrt_v" , Info. View) ; 
TAE . Tae_Co . Co_Find ( Inf o . Col lect ion, " integrt_t ", Info . Target ) ; 

exception 

when TAE.UNINITIALIZED_PTR => 

Text_IO . Put_Line ( " Panel_integrt . Init ialize_Panel : " 

& "Collect ion_Read not initialized. 11 ); 
raise; 

when TAE . Tae_Co . NO_SUCH_MEMBER => 

Text_IO . Put_Line ( " Panel__integrt . Init ialize_Panel : " 

Sc "(View or Target) not in Collection."); 
raise; 

end Init ialize_Panel ; 



Create_Panel 



-- Subprogram BODY 



procedure Create_Panel 
( Panel_State 

: in TAE . Tae_Wpt . Wpt_Flags 

: = TAE . Tae_Wpt . WPT_PREFERRED ; 

Relative_Window 

: in X_Windows .Window 

: = X_Windows . Null_Window ) is 



begin -- Create_Panel 
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if Inf o . Panel_Id = Tae.Nul 
TAE . Tae_Wpt . Wp t_NewPane 1 
( Dummy 



Tae . Null_Panel_Id then 



__ . H H 
~ / 

=> Info. Target, 

=> Info. View, 

=> Relat ive_Window, 
=> Info, 

=> Panel_State, 

=> Inf o . Panel_Id ); 



Data_Vm 
V i ew_Vm 

Relat ive_Window 
User_Context 
Flags 
Panel_Id 



else 



Text_IO . Put_Line ("Panel (integrt) is already displayed."); 
end if; 

exception 

when TAE . UNINITIAL. I ZED_PTR => 

Text_IO . Put_Line ( " Panel_integrt . Create_Panel : 

& "Panel was not initialized prior to creation."); 
raise ; 

when TAE . TAE_FAIL => 

Text_IO . Put_Line ( " Panel_integrt . Create_Panel : 

Sc "Panel could not be created."); 
raise; 

end Create_Panel ; 



procedure Connect_Panel 
( Panel_State 

: in TAE . Tae_Wpt . Wpt_Flags 

: = TAE . Tae_Wpt . WPT_PREFERRED ; 

Relat i ve_Window 

: in X_Windows .Window 

:= X_Windows .Null_Window ) is 

filename : Str ing { 1 .. 80 ):= (others => ' '); 

Q, L, F, P , K : Integer :=1; 

Dummy : Boolean; 



begin -- Connect_Panel 

if Inf o . Panel_Id = Tae . Null_Panel_Id then 
Create_Panel 



Connect_Panel 



Subprogram BODY 
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( Relat ive_Window 
Panel_State 



=> Relat ive_Window, 
=> Panel_State ) ; 



else 



TAE . Tae_Wpt . Wpt_Set PanelState ( Info . Panel_Id, Panel_State ) ; 
end if; 

--ADDED 

strlen (Query __psdl , Q) ; 
strlen (component # L) ; 
strlen (proto_prefix, P) ; 

K:=P+1; 

filename ( 1 . .K) : =proto_pref ix ( 1 . . P )&"."; 
if Query then 

--filename (K . . (2+Q) ) : = Query _psdl ( 1 . . (Q-4 ) ) ; 
filename (K+l . . (K+ (Q-3) ) ) := Query_psdl (1. . (Q-4) )Sc n a"; 

- - f i 1 ename ( 3 +Q ) : = ' a 1 ; 
else 

filename (K+l . . (L+K+2 ) ) : = component ( 1 . . L ) & " . a “ ; 
end if; 

strlen ( f i lename , F) ; 

TAE . Tae_Vm. Vm_SetString ( Info .View, " filename" , 1 , filename ( 1 . . F ) , TAE .Tae_Vm 
. P_UPDATE ) ; 

TAE .Tae_Wpt . Wpt_ViewUpdate ( Info . Panel_Id, " filename M , Info. View, " f i lename " 

) ; 

Dummy : =TAE . Tae_Wpt . Wpt_Pending ; 
for clean in 1..80 loop 
filename (clean) ; 
end loop; 

exception 

when TAE . Tae_Wpt . BAD_STATE => 

Text_IO . Put_Line ( " Panel_integrt . Connect_Panel : " 

Sc "Invalid panel state."); 
raise; 

i 

end Connect_Panel ; 



Destroy_Panel 



— Subprogram BODY 



procedure Destroy_Panel is 



begin -- Destroy_Panel 



TAE .Tae_Wpt . Wpt_PanelErase ( Info . Panel_Id) ; 
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exception 

when TAE . Tae_Wpt . BAD_PANEL_ID => 

Text_IO . Put_Line ( " Panel_integrt . Des troy_Panel : " 

& " Inf o . Pane l_Id is an invalid id."); 
raise; 

when TAE . Tae_Wpt . ERASE_NULL_PANEL => 

-- This panel has not been created yet, or has already been destroyed. 
-- Trap this exception and do nothing, 
null; 

end Des troy_Panel ; 



- - ++++++++++++++++++++++++++++ +++++++++++++++++++++++++++++++++++++++ 
-- begin EVENT HANDLERS 



cancel_Event 



-- Subprogram SPEC Sc BODY 



procedure cancel_Event 

( Info : in TAE . Tae_Wpt . Even t_Cont ext _Ptr ) is 
-- I PURPOSE: 

--I EVENT HANDLER. Insert application specific information. 

Value : array (1..1) of String ( 1 .. TAE . Tae_Taeconf . STRINGS I ZE) ; 
Count : TAE.Taeint; 

Q,L : Integer:=l; 

begin -- cancel_Event 

-- Begin default generated code 

TAE . Tae_Vm . Vm_Ext ract_Count ( Inf o . Parm_Ptr , Count) ; 
if Count > 0 then » 

TAE . Tae_Vm . Vm_Extract_SVAL ( Inf o . Parm_Ptr , 1, Value(l)); 

end if; 

-- End default generated code 
--ADDED 

system_call ( *' rm retrieved_psdl " ) ; 
system_call ( H rm retrieved_spec" ) ; 
system_call ( "rm retrieved_body " ) ; 
system_call ( " rm outfile"); 
system_call ( " rm message") ; 

-- Begin generated code for Connection 
Destroy_Panel ; 

Panel_select .Connect_Panel (TAE . Tae_Wpt . WPT_VISIBLE) ; 

-- End generated code for Connection 
end cancel.Event; 
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integrate_Event 



-- Subprogram SPEC & BODY 



procedure integrate_Event 

( Info : in TAE . Tae_Wpt . Event_Context_Ptr ) is 

-- I PURPOSE: 

-- | EVENT HANDLER. Insert application specific information. 

-- I 

--I NOTES : Invokes the code for integration 

Value : array (1..1) of String ( 1 . . TAE . Tae_Taeconf . STRINGSIZE) ; 
Count : TAE.Taeint; 

Q,X,P,C: Integer:=l; 

begin -- integrate_Event 

-- Begin default generated code 

TAE.Tae_Vm.Vm_Extract_Count ( Inf o . Parm_Ptr , Count) ; 
if Count > 0 then 

TAE . Tae_Vm . Vm_Extract_SVAL ( Inf o . Parm_Ptr , 1, Value(l)); 

end if; 

--ADDED 

strlen (proto_pref ix, X) ; 
strlen (path, P) ; 
strlen (component , C ) ; 
if Query then 

strlen (Query_psdl , Q) ; 

if proto_pref ix ( 1 . .X) =Query_psdl ( 1 . .X) then 

system_call ( " cp out file " &path ( 1 . . P ) & " / "&Query_psdl ( 1 . . (Q- 

4 ) ) & " a " ) ; 

else 

system_call ( " cp outfile " &path ( 1 . . P) & " / 

" &proto_pref ix ( 1 . . X) & " . " &Query_psdl ( 1 . . (Q-4 ) ) & " a " ) ; 
end if; 

system_call ( "cp retr ieved_spec "&path(l . .P) &"/ 

" &proto_pref ix ( 1 . .X) & " . “ ^component ( 1 . . C ) &"_spec . a" ) ; 

system_call ( u cp retr ieved_body "&path ( 1 . . P) &" / 

" &proto_pref ix ( 1 . .X) &" . "&c omponent (1 . . C) body .a" ) ; 

else 

system_call ( " cp outfile " &path ( 1 . . P ) & " / 

"&proto_pref ix ( 1 . .X) & " . "^component ( 1 . .C) & " .a M ) ; 

system^ call ( " cp retrieved_spec " &path ( 1 . . P) & " / 

" &proto_pref ix ( 1 . .X) &" . "^component (1 . .C) &"_spec .a" ) ; 

system_call ( " cp retr ieved_body "&path( 1 . . P) &" / 

" &proto_pref ix ( 1 . .X) Sc" . "^component (1 . .C) &"_body'.a" ) ; 
end if; 

Query : =False ; 
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for erase in 1..80 loop 
Query _psdl (erase) := ' 1 ; 

end loop; 

system_cal 1 ( " rm outfile"); 
system_call ( "rm message" ) ; 
system_call ( " rm retr ieved__psdl " ) ; 
system_cal 1 ( " rm retr ieved_spec " ) ; 
system_call ( "rm retr ieved_body " ) ; 

-- End default generated code 
-- Begin generated code for Connection 
Destroy_Panel ; 

Pane l_ma inmenu . Connect_Panel (TAE . Tae_Wpt . WPT_VISIBLE) ; 
-- End generated code for Connection 

end integrate_Event ; 



int_quit_Event 



-- Subprogram SPEC & BODY 



procedure int_qui t_Event 

( Info : in TAE . Tae_Wpt . Event_Context_Ptr ) is 

--I PURPOSE: 

-- I EVENT HANDLER. Insert application specific information. 

— I 

--I NOTES: Invokes the code for integration and terminates the program. 

Value : array (1..1) of String (1 . .TAE.Tae_Taeconf . STRINGSIZE) ; 
Count : TAE . Taeint ; 

Q,X,P,C: Integer :=1; 

begin -- int_qui t_Event 

-- Begin default generated code 

TAE .Tae_Vm.Vm_Extract_Count ( Inf o . Parm_Ptr , Count) ; 
if Count > 0 then 

TAE . Tae_Vm . Vm_Ext r ac t_SVAL ( Inf o . Parm_Ptr , 1, Value(l) ) ; 
end if; 

--ADDED 

str len (proto_pref ix, X) ; 
strlen (path, P) ; 
strlen (component, C) ; 
if Query then 

strlen (Query _psdl, Q) ; 

system_call ( " cp outfile "&path ( 1 . . P) &" / 

&proto_pref ix ( 1 . .X) &" . " &Query_psdl ( 1 . . ( Q— 4 ) ) & "a" ) ; 

system_call ( " cp retr ieved_spec "&path ( 1 . . P) &“ / 

&proto_pref ix ( 1 . . X) & " . " ^component ( 1 . . C ) & "_spec .a") ; 
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system_call ( "cp retr ieved_body "&path( 1 . . P) &" / 
" &proto_pref ix ( 1 . .X) & " . " ^component ( 1 . . C) &"_body . a" ) ; 
--system_cal 1 ( " rm " &Query_psdl ( 1 . . Q ) ) ; 
else 

system_call ( " cp outfile " kpath ( 1 . . P) & " / 

" &proto__pref ix ( 1 . . X) &" . '^component ( 1 . .C) &" .a" ) ; 

system_call ( " cp retr ieved_spec " &path ( 1 . . P) & " / 
" &proto_pref ix ( 1 . .X) &" . "^component ( 1 . . C) &"_spec .a" ) ; 

system_call ( " cp retr ieved_body " &path ( 1 . . P) & " / 
" &proto_pref ix ( 1 . .X) &" . " ^component (1 . .C) &"_body .a" ) ; 
end if; 

system_call ( " rm outfile"); 
system_call ( " rm message") ; 
system_call ( " rm retr ieved_psdl " ) ; 
system_call ( " rm retrieved_spec " ) ; 
system_call ( " rm retr ieved_body " ) ; 

Global .Set_Applicat ion_Done ; 

end int_quit_Event ; 

-- end EVENT HANDLERS 



Dispatch_Item 



-- Subprogram BODY 



procedure Dispatch_Item 

( User_Context_Ptr : in TAE . Tae_Wpt . Event_Context_Ptr ) is 
--I NOTES: (none) 

begin -- Dispatch_Item 

if TAE . Tae_Misc . s_equal ("cancel", User_Context_Ptr . Parm_Name ) then 
cancel. Event (User_Context_Ptr ) ; 

elsif TAE.Tae_Misc . s_equal ( " integrate" , User_Context_Ptr . Parm_Name) 
then 

integrate_Event (User_Context_Ptr ) ; 
elsif TAE . Tae_Misc . s_equal ("int_quit", User_Context_Ptr . Parm_Name ) 

then 

int_quit_Event (User_Context_Ptr ) ; 
end if; 

end Dispatch_Item; 
end Panel_integrt ; 
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T. SOFTBASE SUPPORT PACKAGE 



1. SOFTBASESUPPORTS.A 

-- *** TAE Plus Code Generator version V5 . 1 
-- *** File : sof tbase_support_s . a 

__ *** Generated : May 21 16:12:31 1992 
-- *** Revised by : Dogan Ozdemir 



* sof tbase_Support -- Package SPEC 

* 



with TAE; 



package sof tbase_Support is 



PURPOSE: 

This package encapsulates the operations specific to a resource file. 
These subprograms enable initialization of all panels, displaying 
all initial panels, and event dispatching. 

REGENERATED : 

This file is generated only once. 



In it ialize_Al l_Panels 



-- Subprogram SPEC 



procedure Initialize_All_Panels 

( Resource_File -- Name of resource file. 

: in String ) ; 

--I PURPOSE: 

-- I This procedure initializes all the panels in the resource file. 

--I 

-- l EXCEPTIONS: 

-- I TAE.TAE_FAIL is raised when the resource file could not be read 
--I TAE . Tae_Co . NO_SUCH_MEMBER is raised when one of the panels was not in 
--I the resource file. This could happen if a panel was deleted from 
--I the resource file (using the WorkBench) after the code was 
-- I generated . 

-- I 

--I NOTES: 

--I This procedure reads in the resource file and initializes each panel. 
--I It only needs to be called once. 
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Create_Initial_Panels 



-- Subprogram SPEC 



procedure Create_Ini t ial_Panels ; 

--I PURPOSE: 

-- I This procedure displays the set of initial panels. 



Dispatch_Panel 



-- Subprogram SPEC 



procedure Dispatch_Panel 

{ User_Context_Ptr -- Wpt Event Context for a PARM 

: in TAE . Tae_Wpt . Event__Context_Ptr ; -- event. 

Panel_In_Resource_File -- True, if the PARM event 

: out Boolean ) ; -- occurred in one of the panels 

-- of this resource file. 

-- False, otherwise. 

--I PURPOSE: 

--I This procedure dispatches a WPT_PARM_EVENT to the appropriate 
panel ' s 

-- I Dispatch_Item routine. 

--I 

--I EXCEPTIONS: 

-- I Application-specific 

end sof tbase_Support ; 



2. softbasesupportb.a 

-- ★★★ t AE Plus Code Generator version V5 . 1 
-- *** File : sof tbase_support_b . a 

★★★ Generated : Sep 14 09:04:39 1992 
__ ★★★ Revised by : Dogan Ozdemir 

★ 

* sof t base Support -- Package BODY 

_ _ ★ 

★ ★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★•a-* 
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with TAE; 
with Text_IO; 

-- one "with” for each panel in the resource file 

with Pane l_libr ary ; 

with Panel_lbselect ; 

with Panel_libadd ; 

with Pane l_lbde let e ; 

with Panel_ldelwarn ; 

with Panel_mainmenu ; 

with Panel_addf ile ; 

with Panel_compsel ; 

with Pane l_keyword ; 

with Panel_query; 

with Panel_viewpsdl ; 

with Panel_viewspec ; 

with Panel_viewbody ; 

with Panel_select ; 

with Panel_cdelwarn; 

with Panel_savecomp; 

with Panel_integrt ; 

package body sof tbase_Support is 



REGENERATED : 



-- I The following WorkBench operations will cause regeneration of this 
--I file: 



A panel is deleted 
A new panel is added 
A panel's name is changed 
For the panels: 
library, lbselect, libadd, 
compsel, keyword, query, 
cdelwarn, savecomp, integrt 



(not title) 

lbdelete, ldelwarn, mainmenu, addfile, 
viewpsdl, viewspec, viewbody, select, 



Create_Init ial_Panels 



-- Subprogram STUB 



procedure Create_Init ial_Panels is separate; 



Init ial ize_Al l_Panels 



-- Subprogram BODY 



procedure Init ialize_All_Panels 
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( Resource_Fi le 

: in String ) is 

Vm_Collection_Read : TAE . Tae_Co . Collect ion_Ptr ; 

begin -- Ini t ial ize_Al l__Pane Is 

-- do one Co_New and Co_ReadFile per resource file 
TAE . Tae_Co . Co_New 
( Flags => 0, 

Coid => Vm_Collect ion_Read ) ; 

-- could pass P_Abort if you prefer 
TAE . Tae_Co . Co_ReadFi le 

( Coid => Vm_Collect ion_Read, 

Spec => Resource_File , 

Mode => TAE . P_CONT ); 

Panel_library . Init ialize_Panel ( Vm_Collect ion_Read) ; 
Panel_lbselect . Init ialize_Panel (Vm_Collect ion_Read) ; 
Panel_libadd . Init ialize_Panel (Vm__Collect ion__Read) ; 
Panel_lbdelete . Init ialize_Panel (Vm_Col lect ion_Read) ; 
Panel_ldelwarn . Initialize_Panel (Vm_Collect ion_Read) ; 
Panel_mainmenu . Init ialize_Panel (Vm_Col lect ion_Read) ; 

Panel_addf ile . Init ial ize_Panel (Vm_Collect ion_Read) ; 
Panel_compsel . Init ialize_Panel ( Vm_Collect ion_Read ) ; 
Panel_keyword. Init ialize_Panel (Vm_Collect ion_Read) ; 

Panel_query . Init iali ze_Panel (Vm_Collect ion_Read) ; 

Panel_viewpsdl . Init ialize_Panel (Vm_Collect ion_Read) ; 
Panel_viewspec . Ini t ialize_Panel (Vm_Collect ion_Read) ; 
Panel_viewbody . Init ialize_Panel ( Vm_Collect ion_Read) ; 
Panel_select . Initialize_Panel (Vm_Collect ion_Read) ; 
Panel_cdelwarn . Initialize_Panel ( Vm_Collect ion_Read) ; 
Panel_savecomp . Init ialize_Panel (Vm_Collect ion_Read) ; 
Panel_integrt . Init ialize_Panel (Vm_Collect ion_Read) ; 

exception 

when TAE . TAE_FAIL => 

Text_I0 . Put_Line ( " res^ile_Support . Init ialize_All_Panels : ") ; 

Text_IO . Put_Line (Resource_File 

& " doesn't exist or is incorrectly formatted."); 
raise ; 

when TAE . Tae_Co . NO_SUCH_MEMBER => 

-- raised from one of the panel's Init ialize_Panel 
raise; 

end Init iali ze_All_Pane Is ; 



Dispatch_Panel -- Subprogram BODY 
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procedure Dispatch_Panel 
( User_Context_Ptr 

: in TAE . Tae_Wpt . Event_Context_Ptr ; 

Panel_In_Resource_File 
: out Boolean ) is 

begin -- Dispatch_Parm_Event 

Panel_In_Resource_File := TRUE; 

if TAE . Tae_Wpt . " = " ( User_Context_Pt r # Panel_l ibrary . Inf o ) then 

Panel_library . Dispatch_I tem (User_Context_Ptr ) ; 
elsif TAE . Tae_Wpt . " = " (User_Context_Ptr , Panel_lbselect . Inf o) then 
Panel_lbselect . Dispatch_Item ( User_Context_Ptr ) ; 
elsif TAE . Tae_Wpt . " = " (User_Context_Ptr , Panel_libadd . Info) then 
Panel_libadd . Dispatch_I tem (User_Context_Ptr ) ; 
elsif TAE . Tae_Wpt . " = " ( User_Context_Pt r , Panel_lbdelete . Inf o) then 
Panel_lbdelete . Dispatch_Item (User_Context_Ptr ) ; 
elsif TAE.Tae_Wpt . "=" ( User_Context_Ptr , Panel_ldelwarn . Inf o ) then 

Panel_ldelwarn . Dispatch_I tem (User_Context_Ptr ) ; 
elsif TAE . Tae_Wpt . " = " ( User_Context_Ptr , Pane l_ma inmenu . Inf o ) then 

Pane l_ma inmenu . Dispatch_I tem (User_Context_Ptr ) ; 
elsif TAE . Tae__Wpt . " = " (User_Context_Ptr , Panel_addf ile . Info) then 
Panel_addf ile . Dispatch_I tem (User_Context_Ptr ) ; 
elsif TAE . Tae_Wpt . " = " (User_Context_Ptr # Panel_compsel . Inf o) then 
Panel_compsel . Dispatch_I tem (User_Context_Ptr) ; 
elsif TAE . Tae_Wpt . " = " (User_Context_Ptr , Panel_keyword . Inf o ) then 
Panel_keyword . Dispatch_I tem (User_Context_Ptr ) ; 
elsif TAE . Tae_Wpt . " = " (User_Context_Ptr , Panel_query . Inf o ) then 
Panel_query . Dispatch_Item (User_Context_Ptr ) ; 
elsif TAE .Tae_Wpt . " =" (User_Context_Ptr , Panel_viewpsdl . Inf o ) then 
Panel_viewpsdl . Dispatch_I tem (User_Context_Ptr ) ; 
elsif TAE.Tae_Wpt . " = " (User_Context_Ptr , Panel_viewspec . Inf o ) then 
Panel_viewspec . Dispatch_Item (User_Context_Ptr ) ; 
elsif TAE.Tae_Wpt . " = " (User_Cont ext_Ptr , Panel_viewbody . Inf o ) then 
Panel_viewbody . Dispatch_I tem (User_Context_Ptr ) ; 
elsif TAE .Tae_Wpt . " =" (User_Cont ext_Ptr , Panel_select . Inf o) then 
Panel_select . Dispatch_I tem (User_Context_Ptr ) ; 
elsif TAE . Tae_Wpt . " = " (User_Cont ext_Ptr , Panel_cdelwarn . Inf o ) then 
Panel_cdelwarn . Dispatch_Item (User_Context_Ptr ) ; 
elsif TAE .Tae_Wpt . " (User_Context_Ptr , Panel_savecomp . Info) then 
Panel_savecomp . Dispatch_Item (User_Context_Ptr ) ; 
elsif TAE . Tae_Wpt . " = " (User_Cont ext_Ptr , Panel_integrt . Info) then 
Panel_integrt . Dispatch_Item (User_Context_Ptr ) ; 
else 

Panel_In_Resource_File := FALSE; 
end if; 

end Dispatch_Panel ; 
end sof tbase_Support ; 
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U. SOFTBASE CREAT INIT.A 



-- **★ tae Plus Code Generator version V5 . 1 

-- *** File : softbase creat_mit.a 

-- *** Generated : Aug 12 16:02:32 1992 
-- Revised by : Dogan Ozdemir 



Create_Init ialPanels -- Subprogram SUBUNIT 



separate ( sof tbase_Support ) 
procedure Create_Init ial_Panels is 



NOTES : 

This subprogram is not in the same file as sof tbase_Support . a 
for code regeneration purposes. Therefore it is a subunit. 

Also note, that the parent unit "with"ed in all of the panel packages 
for the entire resource file, so this unit doesn't need to "with" in 
any of the panel packages. 

This procedure should be called after the panels in the initial panel 
set have been initialized. 

REGENERATED : 

The following WorkBench operations will cause regeneration of this 
file: 

A panel is added to the initial panel set 
A panel is deleted from the initial panel set 
For the set of initial panels: 

library, ibdelete, lbselect, addfile, query, keyword, compsel, 
save comp 



begin -- Create_ Init ial_Panels 

Pane 1_1 ibrary . Create_Pane 1 ; 
Pane l_lbde let e . Create_Panel ; 
Panel_lbselect . Create_Panel ; 
Panel_addf i le . Create_Panel ; 
Panel_query . Create_Panel ; 
Panel_keyword . Create_Panel ; 
Panel_compsel . Create_Panel ; 
Panel_savecomp . Create_Panel ; 

end Create_Init ial_Panels ; 
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